Берілген батырмалардың қызметтерін жаз

Question

Информатика: Берілген батырмалардың қызметтерін жаз

Nikiton101 · Accepted Answer

Begin
var i, j: integer;
var s: real;
var m: array[1..20] of integer;
var n: array[1..20] of integer;

{ формируем массив и заодно вычисляем сумму элементов }
for i := 1 to 20 do begin
    m[i] := random(1000);
    s := s + m[i];
end;

{ печать массива }
for i := 1 to 20 do begin
    writeln(m[i]);
end;
writeln('');

{ среднее арифметическое }
s := s / 20;
writeln(s);

j := 0;
for i := 1 to 20 do begin
    if m[i] > s then begin
      j := j + 1;
      n[j] := m[i];
    end;
end;

writeln('');

for i := 1 to j do begin
    writeln(n[i]);
end;

end.

MOGZ ответил