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

Question

Информатика

Фортунат

17 августа, 06:21

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

+4

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