Question

Составьте программу которая заполняет массив а от 1 до 10 случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива

Answer 1

program raf105;

var

 a: array[1..10] of byte;

 min,max: byte;

begin

 min:= 11;

 for var i:=1 to 10 do

   begin

     a[i]:= random(1,10);

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

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

   end;

 writeln(a);

 writeln('Вывод: ',min+max);

end.

PascalABC