Записать программу: Дан массив а (10), заполненный датчиком случайных чисел. Найти сумму минимального и максимального элементов массива

Vara: array [1 ... 10] of integer;

i, max, min:integer;

begin

min:=10; max:=0;

randomize;

for i:=1 to 10 do

a[i]:=random (10) ;

for i:=1 to 10 do

if a[i]>max then max:=a[i]

else if a[i]< min then min:=a[i];

i:=max+min;

writeln (i) ;

end.