Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Задача на текстовый файл https://www.cyberforum.ru/ turbo-pascal/ thread580836.html Дан файл,содержащий текст на русском языке.Выяснить,входит ли данное слово в указанный текст,и если да,то сколько раз.	Описать переменную экзаменационная ведомость. Определить отличников,хорошистов,троечников и двоечников Turbo Pascal Описать переменную экзаменационная ведомость(предмет,номер группы,номер зачетной книжки,фамилия,имя,отчество студента,его оценки по текущей сессии).Определить отличников,хорошистов,троечников и...
Файлы. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n Turbo Pascal Заполнить файл последовательного доступа f целыми числами,полученными с помощью генератора случайных чисел.Получить в файле g все компоненты файла f,которые делятся на m и не делятся на n.	Turbo Pascal Найти количество элементов массива Дан одномерный массив целых чисел. Найти количество элементов массива. Пожалуйста напишите программу!!!!!)))) Заранее спасибо)))) https://www.cyberforum.ru/ turbo-pascal/ thread580808.html
Turbo Pascal Процедуры и функции. Определить количество строк, которые содержат хотя бы один нулевой элемент https://www.cyberforum.ru/ turbo-pascal/ thread580775.html дана целочисленная прямоугольная матрица. Определить: 1)количество строк, которые содержат хотя бы один нулевой элемент; 2)номер столбца, в котором находится самая длинная серия одинаковых...	Ежедневник. База намеченных мероприятий Turbo Pascal program kursovaya ; uses crt; type baza=record mer:string; indecs: integer; year: integer; mounth:integer; day:integer; vrem_chas: integer;
Turbo Pascal Нарисовать гроздь винограда Нужно решить пару задач: 1.Нарисовать горсть винограда. 2.Нарисовать квадратную мишень с помощью цикла +1. 3.И сделать красивую картинку любым способом. Заранее спасибо.:pardon:	Turbo Pascal Error 200: Division by zero Скажите, пожалуйста, почему выдаёт - Error 200: Division by zero? PROGRAM CAN_SMO; TYPE CHANNAL = (FREE, CLAIM1, CLAIM2); TIME = word; https://www.cyberforum.ru/ turbo-pascal/ thread580756.html
Turbo Pascal Двумерные массивы. Заменить отрицательные нечетные элементы матрицы числом Р https://www.cyberforum.ru/ turbo-pascal/ thread580746.html Помогите пожалуйста решаить. Задана квадратная матрица. Заменить отрицательные нечетные элементы матрицы числом Р.	Turbo Pascal Можно ли pas файл перевести в txt? можно ли pas файл сделанный на турбо паскале перевести на txt? https://www.cyberforum.ru/ turbo-pascal/ thread580734.html

denysd

0 / 0 / 1

Регистрация: 18.05.2012

Сообщений: 12

Удаление пробела после последнего элемента

20.05.2012, 23:16. Просмотров 646. Ответов 1

Метки (Все метки)

Подскажите пожалуйста как в етой програме удалить пробел после последнего елемента:

Pascal

var
   a:array[-100..100] of integer;
   i,n,c,j:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   read(c);
   inc(a[c]);
  end;
 for i:=-100 to 100 do
  for j:=1 to a[i] do
   write(i,' ');
 readln
end.

Добавлено через 24 минуты
извините што побеспокоил я уже понял

Вернуться к обсуждению:
Удаление пробела после последнего элемента

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.05.2012, 23:16

Готовые ответы и решения:

В заданной строке удвоить символ после первого пробела и удалить символ после последнего пробела.
Разработать программу, которая в заданной строке удваивает символ, стоящий после первого пробела и...

Удалить из текстового файла все его элементы, расположенные после последнего символа пробела, включая и этот пробел.
Дано текстовый файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удаление последнего отрицательного элемента
Составьте программу удаления последнего отрицательного элемента одномерного массива A(N).

Получить на основе S новую строку путем добавления пробела после каждой запятой и удаление строк 'video'
задана строка S='16 Mb video RAM,video terminal.video buffer.'Преобразовать первые два её символа в...

Наверх