Урок 18. Задача 4.

Урок 18. Задача 4.

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

type Arr = array[1..6] of integer;
var  s :string;
     i, j :integer;
     a :Arr;

function issdigit(s :string) :boolean;
var fl :boolean;
begin
  if (s >= '0') and (s <= '9') then
      fl := true
    else
      fl := false;
  issdigit := fl;
end;

function string_of_numbers(s :string; var a :Arr) :Arr;
var i, j, n :integer;
    s_2 :string;
    fl, fl_2 :boolean;
begin
  j := 0;
  fl_2 := true;
  for i := 1 to length(s) do
  begin
    fl := issdigit(s[i]);
    if fl then
    begin
      fl_2 := true;
      s_2 := s_2 + s[i];
    end
    else
      if fl_2 then
      begin
        fl_2 := false;
        j := j + 1;
        val(s_2, n);
        a[j] := n;
        s_2 := '';
      end;
  end;
  string_of_numbers := a;
end;

begin
  s := 'e-384-d-125-758-vsd-126-fg-45-';
  string_of_numbers(s, a);
  for i := 1 to high(a) do
    if (a[i] > 125) then
      j := j + 1;
  write(j);
  readln();
end.