Ввести с клавиатуры 9 производных чисел (положительных и отрицательных). вычислить среднее арифметическое нечетных и отрицательных из них. нужна программа для паскаля.
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.