markbrutx
@markbrutx

Как удалить элемент массива по индексу в Turbo Pascal?

Дан текст не более 255 символов. Слова отделяются друг от друга пробелами. Удалить из текста слова с указанными номерами.

Моя реализация кода:
program akb;


procedure DeleteElem<T>(a: array of T; k: word); 
begin 
for var i := k - 1 to length(a) - 2 do 
a[i] := a[i + 1]; 


SetLength(a, length(a) - 1); 

for var i := 0 to length(a) - 1 do 
write(a[i] + ' '); 

end; 

var
  text:string;
  k:integer;

begin 
  
  write ('Введите текст: ');
  readln(text);
  
  var arr := text.Split(' '); // Строка разбита на слова по пробелам
  //writeln(arr[0], ' ', arr[3]); // Слово11 Слово22
  write ('Введите элемент который нужно удалить: ');
  readln(k);


writeln('Массив после обработки: '); 
DeleteElem(arr, k); 
end.

Но он не работает на TP.
  • Вопрос задан
  • 24 просмотра
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы