Дан одномерный целочисленный массив состоящий из 10 элементов составьте программу определения значемния суммы наибольшего и наименьшего элементов этого массива массив заполнить любым способом

program zz1;

var i, max, min, sum:integer;

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

begin

for i:=1 to 10 do / /заполняем массив случайным образом числами от 0 до 20

mas[i]:=random (21);

for i:=1 to 10 do / /выводим числа из массива на экран

write (mas[i],' ');

max:=0; min:=20; / /задаем начальные значения для наибольшего и наименьшего элементов массива

for i:=1 to 10 do

if mas[i]>max then max:=mas[i]; / /находим наибольший элемент

for i:=1 to 10 do

if mas[i]
sum:=max+min; / /находим их сумму

write ('sum=', sum); / /выводим ответ на экран

end.