Дан произвольный массив из целых чисел 6*3. найти в нем миминальный элемент. (составить программу)

Question

Информатика

Филарета

23 мая, 06:45

Дан произвольный массив из целых чисел 6*3. найти в нем миминальный элемент. (составить программу)

+2

Ответы (1)

Знаете ответ?

Исакий · Answer 1

Var ar:array[1 ... 6,1 ... 3] of integer;

i, j, min:integer;

begin;

min:=2147483647;

randomize;

writeln ('Matrix:') ;

for i:=1 to 6 do begin;

writeln;

for j:=1 to 3 do

begin;

ar[i, j]:=random (10) - 5;

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

if min>ar[i, j] then min:=ar[i, j];

end;

end;

writeln;

writeln ('Result:', min) ;

end.