2)измените предыдущее значение переменной а, увеличив его в 2,5 раза, результат запишите в переменную - id2059499320200213 от Artishokq 13.02.2020 13:42

Question

Информатика: 2)измените предыдущее значение переменной а, увеличив его в 2,5 раза, результат запишите в переменную d. значение переменной d округлите

Artishokq · 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.

2)измените предыдущее значение переменной а, увеличив его в 2,5 раза, результат запишите в переменную d. значение переменной d округлите

MOGZ ответил