Форум программистов, компьютерный форум, киберфорум
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
0 / 0 / 1
Регистрация: 18.05.2012
Сообщений: 12
0

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

20.05.2012, 23:16. Просмотров 646. Ответов 1
Метки (Все метки)

Подскажите пожалуйста как в етой програме удалить пробел после последнего елемента:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 минуты
извините што побеспокоил я уже понял

Вернуться к обсуждению:
Удаление пробела после последнего элемента
0
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.'Преобразовать первые два её символа в...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.