Question

ПОМОГИТЕ, ОЧЕНЬ СРОЧНО, ПОЖАЛУЙСТА, ПРОШУ ВАС, С ОБЪЯСНЕНИЕМ !!! ЗАРАНЕЕ СПАСИБО ЗА ВАШ ТРУД И ПОМОЩЬ ​

Answer 1

Ответ:

pascal

Объяснение:

var i, max, min: integer;

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

begin

 randomize;

 for i := 1 to 10 do

 begin  

   a[i] := random(100);

   Write(a[i], ', ');

 end;

 WriteLn;

 min := a[1];

 max := a[1];

 for i := 1 to 10 do

 begin

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

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

 end;

 WriteLn('MAX = ', max);

 WriteLn('MIN = ', min);

 WriteLn('Среднее арифметическое MAX и MIN = ', (max + min) / 2:1:2);

end.