Question

Помогите пожалуйста .
Задание : заполнить массив 10 случайными числами в диапазоне 0.. 100 и среднее арифметическое всех элементов массива

Answer 1

Ответ:

Объяснение:

в секцию var добавляем

AverageValue : real;

в нашу обработку пишем:

AverageValue :=0;

for i:=1 to 10 do AverageValue := AverageValue + a[i];

WriteLn('Average Value = ', AverageValue/10 );

Answer 2

program ni;

var

   i: integer;

   average: real;

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

begin

   randomize;

   for i:= 1 to 10 do a[i]:= random(100);

   for i:= 1 to 10 do write(a[i], " ");

   average:= 0;

  for i:= 1 to 10 do average:= average + a[i];

   writeln(average)

end.