Заполните массива [1..10] случайными целыми числами в диапазоне от -20 до 20 и найдите...

Question

Заполните массива [1..10] случайными целыми числами в диапазоне от -20 до 20 и найдите сумму максимального и минимального элементов данного массива.

Answer 1

program fantscrin;

 const n = 10;

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

     i,min,max:integer;

Begin

 for i:=1 to n do

   a[i]:= random(41)-20;

 for i:=1 to n do

   write(a[i], '  ');

   

 min:=a[1];

 for i:=1 to n do

   if (a[i]

 

 max:=a[1];

 for i:=1 to n do

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

 

   

 writeln('');

 writeln(min+max);

End.