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

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

Задать свой вопрос
1 ответ
Var x,i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do begin
readln(x);
if (xlt;0) and (x mod 2lt;gt;0) then begin
s:=x+s;
k:=k+1;
end; end;
writeln(s/k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт