Задан массив А [1..10]. Найти max и min значение массива.

Uses CRT;

const

 n = 10;

var

 a: array[1..n] of integer;

 min, max, i: integer;

begin

 min:=10000; max:=-10000;

 for i:=1 to n do

 begin

   read(a[i]);

   if (a[i] < a[min]) then min:=i

     else if (a[i] > a[max]) then max:=i;

 end;

 writeln('Минимум: ', a[min], '; Максимум: ', a[max]);

end.

Объяснение: