Напишите программу в...

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

 

uses crt;
var a:array [1..100] of integer;
min,i,n:integer;
begin
  randomize;
  write('kol-vo elementov massiva:'); read(n);
  for i:=1 to n do
  begin
    a:=random(100);
    write(a,' ');
  end;
  writeln;
  min:=a[1];
  for i:=1 to n do
    if a<min then min:=a;
  write('min=',min);
end.