• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Символьный массив

Chelios_rus

Новые
Регистрация
13 Дек 2013
Сообщения
21
Реакции
0
Баллы
0
Символьный массив

Необходимо написать программу на языке паскаль.

Из символьного массива исключить все элементы, содержащие символ 'A'.
 
Уточните формулировку. Что за "символьный массив"? Если это массив символов, то его элементы не могут ничего "содержать": каждый элемент есть один-единственный символ.
 
нужна программа которая бы исключала символ А из списка всех символов.
например: я ввожу символы ABCJRUFKDAKF, а в ответ мне программа должна выдать все те же символы, но без символа А, т.е. BCJRUFKDKF, должно быть так
 
нужна программа которая бы исключала символ А из списка всех символов.
например: я ввожу символы ABCJRUFKDAKF, а в ответ мне программа должна выдать все те же символы, но без символа А, т.е. BCJRUFKDKF, должно быть так
Ну тогда, например, так:
Код:
Var
 S,S1:String;
 i:Integer;
Begin
 Writeln('Enter the symbol array:');
 Readln(S);
 S1:='';
 For i:=1 to Length(S) do
  if S[i]<>'A' then S1:=S1+S[i];
 Writeln('Resultant array:');
 Writeln(S1);
 Readln
End.
 
Назад
Сверху