Составить программу в паскале. Найти минимальный элемент массива А(Т,Т), число Т и элементы массива вводятся с клавиатуры.
Ответы
Ответ дал:
0
var i,j,T,n,min:longint;
begin
read(T);
for i := 1 to T do
for j := 1 to T do
begin
read(n);
if (i = 1) and (j = 1) then min := n else if n < min then min := n;
end;
writeln(min);
end.
begin
read(T);
for i := 1 to T do
for j := 1 to T do
begin
read(n);
if (i = 1) and (j = 1) then min := n else if n < min then min := n;
end;
writeln(min);
end.
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
1 год назад
5 лет назад