Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Задача на текстовый файл Дан файл,содержащий текст на русском языке.Выяснить,входит ли данное слово в указанный текст,и если да,то сколько раз. https://www.cyberforum.ru/ turbo-pascal/ thread580836.html	Описать переменную экзаменационная ведомость. Определить отличников,хорошистов,троечников и двоечников Turbo Pascal Описать переменную экзаменационная ведомость(предмет,номер группы,номер зачетной книжки,фамилия,имя,отчество студента,его оценки по текущей сессии).Определить отличников,хорошистов,троечников и двоечников.
Turbo Pascal Файлы. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на n https://www.cyberforum.ru/ turbo-pascal/ thread580831.html Заполнить файл последовательного доступа f целыми числами,полученными с помощью генератора случайных чисел.Получить в файле g все компоненты файла f,которые делятся на m и не делятся на n.	Turbo Pascal Найти количество элементов массива Дан одномерный массив целых чисел. Найти количество элементов массива. Пожалуйста напишите программу!!!!!)))) Заранее спасибо)))) https://www.cyberforum.ru/ turbo-pascal/ thread580808.html
Процедуры и функции. Определить количество строк, которые содержат хотя бы один нулевой элемент Turbo Pascal дана целочисленная прямоугольная матрица. Определить: 1)количество строк, которые содержат хотя бы один нулевой элемент; 2)номер столбца, в котором находится самая длинная серия одинаковых элементов. помогите переделать в 1)оформить в виде функции; 2)оформить в виде процедуры. CONST N=10; Var A,B:ARRAY of BYTE; C:ARRAY of BYTE;	Turbo Pascal Ежедневник. База намеченных мероприятий https://www.cyberforum.ru/ turbo-pascal/ thread580769.html 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: https://www.cyberforum.ru/ turbo-pascal/ thread580766.html	Turbo Pascal Error 200: Division by zero Скажите, пожалуйста, почему выдаёт - Error 200: Division by zero? PROGRAM CAN_SMO; TYPE CHANNAL = (FREE, CLAIM1, CLAIM2); TIME = word;
Turbo Pascal Двумерные массивы. Заменить отрицательные нечетные элементы матрицы числом Р Помогите пожалуйста решаить. Задана квадратная матрица. Заменить отрицательные нечетные элементы матрицы числом Р. https://www.cyberforum.ru/ turbo-pascal/ thread580746.html	Turbo Pascal Можно ли pas файл перевести в txt? можно ли pas файл сделанный на турбо паскале перевести на txt? https://www.cyberforum.ru/ turbo-pascal/ thread580734.html
Множества. Необходимо сформировать новое множество из элементов заданного, кратных 3 или 5 Turbo Pascal Пусть задано множество letters=. Необходимо сформировать новое множество из элементов заданного, кратных 3 или 5. Образец решения задачи. Задача. Пусть задано множество А целых чисел. Создать множество В из элементов множества А кратных 5. Вывести на печать множество В. Постановка задачи Входные данные. А – множество целых чисел. Выходные данные. В – множество целых чисел кратных 5....	Turbo Pascal Файлы. Дан файл, содержащий числа. Найти максимальный элемент каждой строки https://www.cyberforum.ru/ turbo-pascal/ thread580721.html 1.Дан файл, содержащий числа. Найти максимальный элемент каждой строки.

denysd

0 / 0 / 1

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

Сообщений: 12

Удаление пробела после последнего элемента - Turbo Pascal - Ответ 3058666

20.05.2012, 23:16. Показов 799. Ответов 1

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

Author24 — интернет-сервис помощи студентам

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

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 минуты
извините што побеспокоил я уже понял

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

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

Заказать работу у эксперта

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.'Преобразовать первые два её символа в...

	20.05.2012, 23:16

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

20.05.2012, 23:16

Помогаю со студенческими работами здесь

Вставить число после последнего положительного элемента одномерного массива
составить программу которая бы вставляла число х после последнего положительного элемента...

Найти сумму элементов массива, расположенных после последнего минимального элемента
Вычислить: 1) кол-во элементов, меньших С 2) сумму элементов массива, расположенных после...

Вычислить сумму элементов массива, расположенных после последнего положительного элемента
В одномерном массиве, состоящем из n вещественных элементов, вычис- лить: 1) максимальный элемент...

Найти произведение элементов массива после последнего элемента, равного нулю
помогите розобраться .я поменял в прогеprogram elments; const n=10; var a:array of...

Наверх