найти минимальный элемент двумерного массива. заполнение массива произвести с клавиатуры
Answers & Comments
Alex24241
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.
Answers & Comments
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.