Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.04.2021, 12:17   #1
Narvik
Пользователь
 
Регистрация: 03.03.2021
Сообщений: 20
По умолчанию Нужно помощь

Здравствуйте. Смысл задания в том, что я задаю массив, потом ещё один элемент и проверяю введённый элемент, если такой элемент есть в массиве, то следующий за ним элемент удаляется
Допустим пример.
Массив: 1 2 3 4 5
Ещё один элемент: 3
Значит он находит 3 в массиве и после него удаляет элемент, получается 1 2 3 5


Я реализовал код, но у меня не получается вывести новый массив, после удаления, не пойму как это сделать. Помогите пожалуйста.

Код:
program lb_4;
var
  i, n, k,num: integer;
  m: array [1..1000] of integer;
begin
  repeat
    writeln('Введите любое целое количество элементов от 1 до 1000');
    readln(n);
    if n < 1 then
      writeln('n не может быть меньше единицы')
    else if n > 1000 then
      writeln('n не может быть больше тысячи')
  until (n >= 1) and (n <= 1000);
    if n = 1 then begin
    writeln('В массиве не может быть один элемен, удалять будет нечего.');
    exit;
    end;
  for i := 1 to n do 
  begin
    write('Введите ', i, ' элемент: ');
    readln(m[i]);
  end;
  writeln;
  write('Укажите еще один элемент: ');
    readln(num);
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    write(m[i], ' ');
  end;
  for i := 1 to n do
    if m[i] = m[num] then
    begin
      // код
    end;
  writeln;
  writeln('Массив после удаления:');
  for i := 1 to n do
    write(m[i], ' '); 
  writeln();
end.
Narvik вне форума
Закрытая тема
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно помощь со взломом ЛеоРегул Безопасность, Шифрование 4 21.11.2018 16:55
Нужна помощь [Нужно исправить] WinniePooh:) Общие вопросы Delphi 1 14.12.2015 08:20
Ну просто очень нужно помощь Doget Помощь студентам 5 26.03.2008 14:28


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS