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

элементов.

Question

Информатика

Настасия

9 июля, 00:11

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

элементов.

+3

Ответы (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.

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

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

элементов.