Долговременная и оперативная это тоже самое!
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln('Нечетных двухзначнык: ',
a.Where(t->t.IsOdd and Abs(t).Between(10,99)).Count)
end.
<u>Пример</u>
n= 15
230 256 59 60 291 190 62 -234 -43 228 -154 62 -58 58 100
Нечетных двухзначнык: 2
Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?