Урок 18 Задача 04

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

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

123ret34#2145esrt5

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

	
2145

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

Решение:

program u18z04;
var s,s0:string;
  i,j,n,Code:integer;
  a:array [1..5] of integer;
begin
  writeln('Vvedite stroku');
  readln(s);
  j:=1;
  for i:=1 to length(s) do
  begin
    if(s[i]>='0')and(s[i]<='9') then
      s0:=s0+s[i]
    else if s0<>'' then
    begin
      s0:='';
      j:=j+1;
    end;
    Val(s0,n,Code);
    a[j]:=n;
  end;
  for i:=low(a) to high(a) do
  begin
    if a[i]>125 then
      writeln(a[i]);
  end;
  readln();
end.

Консоль:

Vvedite stroku
123ret34#2145estr5
2145