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.