Найти наименьший элемент двумерного массива заполненного случайными числами в диапазоне от 0 до 20

Question

Информатика

Иауна

11 мая, 05:32

Найти наименьший элемент двумерного массива заполненного случайными числами в диапазоне от 0 до 20

+1

Ответы (1)

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

Парвина · Answer 1

Var

a: array [1 ... 10,1 ... 10] of Integer;

i, j, min:Integer;

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

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

Write (a[i, j]:3);

end;

WriteLn ();

end;

min: = a[1,1];

for i:=1 to 10 do

for j:=1 to 10 do

if a[i, j] < min then min:=a[i, j];

WriteLn ('Минимальный элемент равен ', min);

end.