Написать программу вычисления наименьшего элемента массива.

Для языка программирования: Turbo Pascal

program min;

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

i, p: byte; min: integer;

begin writeln ('Массив:') ;

for i:=1 to 10 do

begin a[i]:=-20+random (80) ;

write (a[i],' ') ;

end;

writeln () ;

min:=a[1];

for i:=1 to 10 do

if (a[i] < = min) then

begin min:=a[i]; p:=i;

end;

writeln ('Минимальное число = ', min,' его порядковый номер = ', p) ;

end.