Лапотуня

Вводится набор строк и набор чисел. Введенные числа показывают номера выбранных мест в строках. Вывести символы (без повторений), стоящие на выбранных местах.

program project5;
uses
SysUtils;
var
i, j : integer;
numNumbers : integer;
numStrings : integer;
arrNumber : array of integer;
arrString : array of string;
result :string;
begin
Write('Колличество строк: ');
ReadLn(numStrings);
Write('Колличество чисел: ');
ReadLn(numNumbers);
WriteLn;
setlength (arrString, numStrings);
setlength (arrNumber, numNumbers);
for i:= Low(arrString) to High(arrString) do begin
Write('Строка ',i,': ');
ReadLn(arrString[i]);
end;
WriteLn;
for i:= Low(arrNumber) to High(arrNumber) do begin
Write('Число ',i,': ');
ReadLn(arrNumber[i]);
end;
result := '';
for i:= Low(arrNumber) to High(arrNumber) do begin
for j:= Low(arrString) to High(arrString) do begin
if((Length(arrString[j]) >= arrNumber[i]) AND (Pos(arrString[j][arrNumber[i]], result) = 0))
then begin
result := result + arrString[j][arrNumber[i]];
end;
end;
end;
WriteLn('Символы стоящие на выбранных местах: ',result);
WriteLn;
WriteLn('Чтобы закрыть нажмите клавишу ENTER...');
ReadLn();
end.

Валерий

Перестаньте клонировать тему!

__________________
Пингвин птица гордая, пока не пнёшь - не полетит.

Валерий

Похоже, сударь, вы не поняли. Бан на неделю.

__________________
Пингвин птица гордая, пока не пнёшь - не полетит.