Question

Я Карташова на магнитное полюсы сеноита до сируму

Answer 1

Ответ:

Объяснение:program max_min;

var M:array [1..10] of integer;

i, min: integer;

begin

randomize;

for i := 1 to 10 do

begin

M[i] := random (10);

write (M[i],' ')

end;

min := M[1];

for i := 2 to 10 do

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

writeln (' ',min)

end.