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

Question

Информатика

Галсвинта

30 августа, 19:31

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

+3

Ответы (1)

Знаете ответ на вопрос?

Инриетта · 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.