Дан двухмерный массив, в каждой его строке найти минимальный элемент.

Question

Информатика

Болеслава

27 февраля, 01:06

Дан двухмерный массив, в каждой его строке найти минимальный элемент.

+3

Ответы (1)

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

Витовт · Answer 1

Если размеры массива нужны другие, в самом начале программы исправь значения n, m

const

n=5;

m=6;

var

a:array[1 ... n, 1 ... m] of integer;

i, j, min:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (20) ;

write (a[i, j]:4) ;

if j=1 then

min:=a[i, 1]

else

if a[i, j]
end;

writeln ('; min=', min) ;

end;

end.