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

ikujtdhc ikujtdhc    2   08.09.2019 14:30    0

Ответы
sasharuf2000 sasharuf2000  07.10.2020 01:03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика