Question

Найти сумму и количество всех двухзначных нечетных чисел из 80 заданных целых чисел.

Answer 1

Pascal ABC

var i,k,s,n:integer;

begin

k:=0;

s:=0;

for i:=1 to 80 do begin

readln(n);

if (n>9) and (n<100) and  (n mod 2<>0) then begin s:=s+i; k:=k+1; end;

end;

writeln('количество ',k);

writeln('Сумма ',s);

end.