Составьте программу вычисления среднего арифметического отрицательных

элементов.

Question

Информатика

Гермес

11 декабря, 01:59

Составьте программу вычисления среднего арифметического отрицательных

элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Ируша · Answer 1

Var a, b, z, i: integer;

begin

readln (a) ;

if (a < 0) then

begin

z : = z + a;

i : = i+1;

end;

readln (b) ;

if (b < 0) then

begin

z : = z + b;

i : = i+1;

end;

if (i > 0) then

writeln (z/i) ;

end.

Составьте программу вычисления среднего арифметического отрицательныхэлементов.

Составьте программу вычисления среднего арифметического отрицательных

элементов.