Question

Найти сумму двузначных нечетных чисел. Вывести сумму. А также выводить на экран сколько вводилось двузначных чисел и сколько из них было нечетных. То есть всего должно быть 3 вывода. Помогите пожалуйста!!!

Answer 1

Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.

Answer 2

Попробуй создать 2 переменные. 1 отвечает за чётность. if a mod 2=0. 2 отвечает за двузначность. a>9.

Answer 3

Это для вывода, сколько было двузначных из них и не четных?
Значит к примеру для вывода двузначности, опять пишем после предпоследнего end.:
begin

Answer 4

if a mod 2=0
writeln('нечетные числа',b)
так? а зачем вообще B вводилось в самом начале?