Ввести с клавиатуры 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.
Если вы говорит что на экран выводится число 10614 посредством метода "write(2*(n mod 5+3))", то вы ошибаетесь. Допустимые значения выводимых этим выражением чисел соответствуют следующей линейке: 6, 8, 10, 12, 14. Если же после данного цикла выполняется вывод переменной n, то указанное вами выводимое значение так же ошибочно, так как цикл выполняется до того момента пока переменная не станет равна нулю. Я скорее всего ошибаюсь, так как не вижу конкретизированного условия(в каком участке кода выводится значение 10614).
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.