Seurach
5 год назад
Ввести с клавиатуры 9 производных чисел (положительных и отрицательных). Вычислить среднее арифметическое нечетных и отрицательных из них. Нужна программа для паскаля.
ОТВЕТЫ
Amira
Oct 24, 2020
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 2<>0) then begin
s:=x+s;
k:=k+1;
end; end;
writeln(s/k);
end.
begin
s:=0; k:=0;
for i:=1 to 9 do begin
readln(x);
if (x<0) and (x mod 2<>0) then begin
s:=x+s;
k:=k+1;
end; end;
writeln(s/k);
end.
896
Смежные вопросы:
