Создать программу в Паскале: Дан массив целых чисел х

Question

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

Answer 1

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]

end;

write(min);

end.