program lentai;
var a:array[1..10] of integer;
    max,min,i:integer;

begin
 cls;
 write('Массив:');
 for i:=1 to 10 do
     begin
          a[i]:=random(10);//числа от 0 до 49
          write(' ',a[i])   //вывели изначальный массив
     end;
 writeln();
 min:=1;//нечто большое
 max:=1;//нечто маленькое
  for i:=1 to 10 do
     begin
          if a[i]<a[min] then min:=i;
          if a[i]>a[max] then max:=i;
     end;
 writeln('Сумма наименьшего и наибольшего элементов массива: ',a[min]+a[max]);

 end.