Из текста удалить все цифры, стоящие перед первой буквой

[Aleksandr15]

Текст вводится пользователям , и программа нужна без стрингов в паскале, не проходили мы стринги
массив,циклы-то что понимаю
Кому не лень помогите

[Serge_Bliznykov]

Текст вводится пользователям , и программа нужна без стрингов в паскале, не проходили мы стринги
массив,циклы-то что понимаю

ну давайте начнём с того, что Вы напишите код для ввода данных в исходный массив и вывод введённых данных на экран.

потом Вы скажете, что по Вашему является буквой (желательна запись в синтаксисе множеств в Паскаль, например буква это ['a'..'z','A'..'Z']

[Sparkman]

Сообщение от Aleksandr15

Текст вводится пользователям , и программа нужна без стрингов в паскале, не проходили мы стринги
массив,циклы-то что понимаю
Кому не лень помогите

program programmersforum;
uses crt;
const digits : set of char = ['0'..'9'];
      bukva  : set of char = ['a'..'z','A'..'Z'];
      n = 10;
var a : array [1..n] of char;
    i,j,k,deleted : integer;
begin
     clrscr;
     writeln('Enter stringi:');
     for i:=1 to n do
     begin
          a[i] := readkey;
          write(a[i]);
     end;
     for i:=1 to n do
         if (a[i] in bukva) and (i>1) then break;
     j:=0;
     deleted:=0;
     while j<=n-i-deleted do
     begin
          inc(j);
          if a[j] in digits then
          begin
               for k:=j to n-1-deleted do
               a[k]:=a[k+1];
               dec(j);
               inc(deleted);
          end;
     end;
     writeln;
     writeln('Result:');
     for i:=1 to n-deleted do
     write(a[i]);
     readln;
end.

[Aleksandr15]

Program Szatie massiv
Const
  Dim=30;
  Scipra=['0'..'9'];
  Sbykva=['A'..'Z'];
Type
  TVector=Array[1..Dim] of Char;
Var
  Vector:TVector;
  DlinVect,I,J:Byte;
Begin
  Writeln('Vvedite text <=',Dim,' simvolov');
  Writeln('Konec vvoda po ENTER');
  DlinVect:=0;
  While not eoln do
    begin
       Inc(DlinVect);
       read(Vector[DlinVect]);
    end;
  Readln;  
{Всё это правильно}
  While Upcase(Sbykva) in Vector do
    begin
       I:=Vector[J];
       Vector[I];
    end;
  If I=1
    then
       Writeln('Ydalytb ne4ego');
    else
       begin
         For J:=1 to Vector[I] do
            If Scipra in Vector
              then
                 Dec(DlinVect)
{Это уже до чего я дошёл, наверняка есть ошибки}


Ребят кому интересно помогите плиз !;)

[GetMax]

Предлагаю такое решение. Никаких строк. Одни массивы:

  Var
  Mas:Array[1..1000] of Char;
  i,Kol,j:Byte;
  Simvol:Char;
Begin
  Readln(Kol);
  Writeln('Vvedite ',Kol,' simvolov');
  i:=0;
  Repeat
    Inc(i);
    Write('Vvedite ',i, '-y simvol ');
    Readln(Simvol);
    Mas[i]:=Simvol
  Until i >= kol;
  j:=0;
  Kol1:=0;
  i:=1;
  While i <= Kol do
  Begin
    If  (Mas[i] in ['0'..'9']) and (Mas[i+1] in ['a'..'z','A'..'Z']) then
    Begin
      For j:=i to Kol do
      Begin
        Mas[j]:=Mas[j+1];
      End;
      Dec(Kol);
      inc(i)
    End
    Else
    Inc(i)
  End;
  For i:=1 to Kol do Write(Mas[i]);
  Readln
End.