Написать программу :в последовательности естественных чисел отыскать сумму и кол-во дву

все числа двузначные?

да

Пояснения надобно?

ну желанно

ок мину 8

на 2 фото объясненья

огромное спасибо

мне надобно чтобы двузначное число начиналось на 2 и заместо 9999 я поставил 99

Это просто массив из наибольшего количества частей

var
i,n,cnt,tmp,sum, last:integer;
a:array [1..9999] of integer;

Begin
Writeln('Введите кол-во частей');
Readln(n);
Writeln('Введите последовательность -gt; ');
for i:= 1 to n do
  read(a[i]);
writeln();

for i:=1 to n do
  begin
    tmp:= a[i];
      while tmp gt; 0 do
        begin
          last:=tmp mod 10;
          tmp:= tmp div 10;
        end;
  if last = 2 then
    begin
      cnt:= cnt + 1;
      sum:= sum + a[i];
    end;
  end;

Writeln('Всего элементов: ', cnt);
Writeln('Сумма равна ', sum);
end.

Program Rick_and_Morty;
var x,y,i:integer;
var a:array [1..9999] of integer;

Begin
y:=0;
write('введите количество чисел (макс 9999): ');
readln (x);


write('Масив: ');

for i:=1 to x do
begin
a[i]:=random(89)+10;
write(a[i],', ');
end;

writeln('');


for i:=1 to x do
begin

if (a[i] div 10 =2) then
begin
y:=a[i]+y;
writeln('Подходящее число:',a[i],' сумма =',y );
end;

end;

writeln('конец');
end.