Создать программу в Паскале:
Дан массив целых чисел х<=20
Найти минимальное и максимальное значения
Хелп! Срочно надо!!!

program kurs_v;

const x=20;

var n:integer;

A:array[1..x] of integer;

i,min:integer;

begin

min:=A[1];

for i:=2 to N do

begin

If A[i]<min then min:=a[i];

end;

write(min);

end.