В Pascal ввести с клавиатуры 20 чисел.

найти среднее арифметическое отрицательных

Question

Информатика

Римуля

31 октября, 21:26

В Pascal ввести с клавиатуры 20 чисел.

найти среднее арифметическое отрицательных

+1

Ответы (1)

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

Алла · Answer 1

Program n1;

var i, sum, a, k: integer;

begin

sum:=0;

k:=0;

for i:=1 to 20 do

begin

readln (a) ;

if a<0 then begin

sum:=sum+a;

k:=k+1;

end;

end;

write (sum/k) ;

end.

В Pascal ввести с клавиатуры 20 чисел.найти среднее арифметическое отрицательных

В Pascal ввести с клавиатуры 20 чисел.

найти среднее арифметическое отрицательных