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

(в паскале)

Question

Информатика

Агафон

2 марта, 06:35

Найдите среднее арифметическое отрицательных чисел из 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 введенных.

(в паскале)