Найдите среднее арифметическое отрицательных чисел из n введенных.

(в паскале)

Question

Информатика

Мелана

26 июня, 11:36

Найдите среднее арифметическое отрицательных чисел из n введенных.

(в паскале)

+2

Ответы (1)

Знаете ответ?

Санюра · Answer 1

const

n = 3;

var

i, a, count, s: integer;

begin

for i : = 1 to n do begin

readln (a) ;

if (a < 0) then begin

s : = s + a;

inc (count) ;

end;

end;

writeln (s/count) ;

end.

Найдите среднее арифметическое отрицательных чисел из n введенных.(в паскале)

Найдите среднее арифметическое отрицательных чисел из n введенных.

(в паскале)