Question

Сформировать массив целых случайных чисел в пределах 100 из 4 элементов. Найти максимальный и минимальный элемент массива и их сумму.

Answer 1

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

i,max,min: integer;

begin

   for i:= 1 to 100 do

   begin

       a[i]:= random(50)-25;

       write(a[i]:5);

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 100 do

   begin

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

   end;

   for i:= 1 to 100 do

   begin

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

   end;

   writeln;

   writeln('min = ',min);

   writeln('max = ',max);

   writeln('min + max = ',min + max);

end.