Question

а) составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 И находит сумму минимального и максимального элемента массива

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(20);

 for i:=1 to n do

   write(a[i], '  ');

   

 min:=a[1];

 for i:=1 to n do

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

 

 max:=a[1];

 for i:=1 to n do

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

 

   

 writeln('');

 writeln(min+max);

End.

Answer 2

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