Урок 16 Задача 5

Урок 16 Задача 5

Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.

program U16Z5;
type
  Tarr = array [1..8] of string;
var
  c: Tarr;
  i: integer;
  s: string;
function netNum (s:string):Tarr;
var w:string;
  n:Integer;
  a: Tarr;
begin
  n:=1;
  readln(s);
  for i:= 1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      w:=w+s[i];
    end
    else if (w<>'') then
    begin
      a[n]:=w;
      n:=n+1;
      w:=''
    end;
    a[n]:=w;
    end;
  result:=a;
end;
begin
  c:= netNum(s);
  for i:=low(c) to high(c) do
    begin
      write(c[i], ' ');
    end;
  readln();
end.