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.