Написать программу которая задает массив случайным образом и ищет минимальный элемент

Написать программу которая задает массив случайным образом и ищет минимальный элемент
Гость
Ответ(ы) на вопрос:
Гость
const n=10; var a:array[1..n] of integer; min,i:integer; begin Randomize; for i:=1 to n do begin  a[i]:=random(51);  write(a[i],' ');  end; writeln; min:=a[1];  for i:=2 to n do  if a[i]