Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

Question

Информатика

Анастасиюшка

9 августа, 13:41

Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

+3

Ответы (1)

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

Вераша · Answer 1

Program min_elem;

var a:array[1 ... 5,1 ... 5] of integer;

min, i, j: integer;

begin

{ввод матрицы}

for i:=1 to 5 do

for j:=1 to 5 do read (a[i]) ;

{решение задачи}

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];

write ('min=', min)

end.