Ввести с клавиатуры 9 производных чисел (положительных и отрицательных). Вычислить среднее арифметическое нечетных и отрицательных из них. Нужна программа для паскаля.

Question

Информатика

Олимпий

10 сентября, 05:37

Ввести с клавиатуры 9 производных чисел (положительных и отрицательных). Вычислить среднее арифметическое нечетных и отрицательных из них. Нужна программа для паскаля.

+3

Ответы (1)

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

Иуния · Answer 1

Var x, i, s, k:integer;

begin

s:=0; k:=0;

for i:=1 to 9 do begin

readln (x) ;

if (x<0) and (x mod 20) then begin

s:=x+s;

k:=k+1;

end; end;

writeln (s/k) ;

end.