Question

Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами.


max_min;

var M: [1..10] of ;

i, min: integer;

begin

randomize;

for i: = 1 10 do

begin

: = random (10);

write (M[i],' ');

end;

min: = M[1];

for i: = 2 to 10 do


if (min > M[i]) then : = M[i];

end;

writeln (' ');

(min)

end.

Answer 1

Ответ:

ответ 13 .....................рлрпоппгар