Question

Паскаль
20 эл(элементов) массиве случайных чисел в значении которых [-5;5]
найти min элемент массива
и болк схему можно пожалуйста?

Answer 1

Ответ:

var i,m:integer;

a:array [1..20] of integer;

begin

m:=5;

for i := 1 to 20 do

begin

a[i]:=random(11)-5;

write (a[i]:3);

if a[i]<m then m:=a[i]

end;

writeln;

write (m)

end.