Ответ:

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.