Напечатать целые числа, содержащиеся в строке Опции

[GolDen]

Прошу помочь мне с данной задачей. :-/
Напечатать целые числа, содержащиеся в строке.

GolDen

[Alesha_GA]

Надо учитывать был ли предыдущий сивол числом.

Код

Program l5;
uses crt;
const n=255;
var i:byte;
c:integer;
mn:array[1..n] of integer;
m:array[1..n] of string;
s:string;
bpl:boolean;
Begin
 clrscr;
 Writeln('Введите строку:');
 Readln(s);
 c:=1;
 bpl:=false;
 for i:=1 to length(s) do
 if (s[i]>='0') or (s[i]<='9') then
  Begin
  if bpl=true then c:=c-1;
  m[c]:=m[c]+s[i];
  c:=inc(c);
  bpl:=true;
  End else bpl=false;

  {Переводиш string в integer и всё.}
   
 Readkey
 End.

Сообщение отредактировано: volvo - 17.12.2004 13:06