Question

Найти минимальный элемент двумерного массива. заполнение массива произвести с клавиатуры

Answer 1

Var
a: array [1..5,1..5] of Integer ;
i,j,min:Integer;
begin
Writeln('Заполните массив');
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
Read(a[i,j]);
end;
WriteLn();
end;
min:= a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j] < min then min:=a[i,j];
WriteLn('Минимальный элемент равен ', min);
end.