Дан одномерный массив из n целых чисел. Составить программу нахождения максимального и минимального элементов.

Var a:array of integer;

i, n, mn, mx: integer;

begin

write ('размерность массива = ') ;

readln (n) ;

SetLength (a, n) ;

for i : = 0 to n-1 do begin

write ('a[', i,']=') ;

readln (a[i]) ;

end;

mn : = a[0];

mx : = a[0];

for i : = 1 to n-1 do begin

if mn > a[i] then mn : = a[i];

if mx < a[i] then mx : = a[i];

end;

writeln ('минимальный элемент = ', mn) ;

writeln ('максимальный элемент = ', mx) ;

end.