Question

Написать программу : в последовательности натуральных чисел найти сумму и кол-во дву значных чисел начинающихся на 2 program - pascal abc

Answer 1

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.

Answer 2

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

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

for i:=1 to n do
  begin
    tmp:= a[i];
      while tmp > 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.