Question

ПОЖАЛУЙСТА, ПОМОГИТЕ МНЕ...
ОЧЕНЬ СРОЧНО, ПОМОГИТЕ, УМОЛЯЮ
Дан одномерный целочисленный массив Z[3..17], заданный случайными числами на промежутке (-25; 25). Найдите среднее арифметическое элементов массива.
ПАСКАЛЬ!!!!​

Answer 1

Ответ:

pascal

Объяснение:

var i, s: integer;

   z: array [3..17] of integer;

begin

 randomize;

 for i := 3 to 17 do

 begin

   z[i] := random(51) - 25;

   write(z[i], ' ');

   s := s + z[i];

 end;

 writeln;

 writeln('Среднее арифметическое элементов = ', s / 15:1:2);

end.