Задача 3 Урок 17

Задача 3 урок 17

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:

123ret34#2145esrt5

такое число только одно и это:

2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

program U17Z3;
var a: array [1..250] of integer;
    s,chislo: string;
    i,code,v,j: integer;
begin
  writeln('vvedite stroku');
  readln(s);
  chislo:='';
  j:=0;
  for i:=1 to length(s) do
  begin
    if(s[i]>='0') and (s[i]<='9') then
      chislo:=chislo+s[i]
    else
      if (chislo<>'') then
      begin
        val(chislo,v,code);
        if (v>125) then
        begin
          j:=j+1;
          a[j]:=v;
        end;
        chislo:='';
      end;
  end;
  writeln('kolichestvo chisel >125: ',j);
  for i:=1 to j do
    writeln(a[i]);
  readln();
end.