строки, работа со строками Опции

[zmei123]

ребят помогите очень надо плиз

дано k-литерных строк (эти строки сохраняются в массиве строк a ). Каждая строка содержит латинские и русские буквы, цифры и все возможные делители требуется:

1 надо выделить из каждой строки (сформировать еще один массив строк b и массив С из целых чисел, в котором будут храниться номера исходных строк , из которых выделяются подстроки) и напечатать подстроки (оформить процедурой)-расположенные между /* и */


если че не понятно в условии пишите прямо в форуме


надеюсь что кто нибудь поможет

[volvo]

Чего это такое? Попроще нельзя было сделать? Вот так, например:

program mas1;
type
  mas  = array [1..20] of string;
  mass = array [1..20] of integer;


procedure check(const a: mas; var b: mas; var c: mass;
          const n: integer; var p: integer);
var
  i, T, start, finish: integer;

begin
  p := 0;
  for i := 1 to n do begin
    start := pos('/*', a[i]);
    finish := pos('*/', a[i]);
    if start * finish > 0 then begin

      if start > finish then begin
        T := finish; finish := start; start := T
      end;

      writeln('debug: start = ', start, ' finish = ', finish);
      inc(p);
      b[p] := copy(a[i], start + 2, finish - start - 2);

      c[p] := i;

    end;

  end;
end;

var
  a, b: mas;
  c: mass;
    n,k,i,u:integer;
    y,x:string;
begin
  write('k = '); readln(k);

  for i := 1 to k do
    readln(a[i]);

  check(a, b, c, k, u);

  for i := 1 to u do
    writeln(b[i], '':5, c[i]);

  readln;
end.