Изменить порядок следования элементов в массиве на обратный - Turbo Pascal

  1. Изменить порядок следования элементов в массиве на обратный.


textual

Код к задаче: «Изменить порядок следования элементов в массиве на обратный - Turbo Pascal»

const n=15;
var a,b:array[1..n] of integer;
i,j:byte;
begin
for i:=1 to n do
readln(a[i]);
for i:=n downto 1 do
begin
 j:=j+1; b[j]:=a[i];
end;
for i:=1 to n do
 write(b[i]:5);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.286 из 5



Похожие ответы
  1. Вводится какое-то число n, к примеру, 2473, а программа должна поменять порядок следования цифр таким образом, чтобы получилось максимальное возможное из этих цифр число(в данном случае - 7432). Количество цифр в числе n должно находится автоматически или вводится с клавиатуры.

  1. Вывести сначала все фамилии на А, а порядок остальных не важен, программа правильная как её сделать через процедуру?

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

  1. Дан список целых чисел. Требуется “сжать” его, переместив все ненулевые элементы в левую часть списка, не меняя их порядок, а все нули - в правую часть. Порядок ненулевых элементов изменять нельзя, дополнительный список использовать нельзя, задачу нужно выполнить за один проход по списку. Распечатайте полученный список. Входные данные Вводится список чисел. Все числа списка находятся на одной строке. Выходные данные Выведите ответ на задачу. Примеры входные данные 4 0 5 0 3 0 0 5 выходные данные 4 5 3 5 0 0 0 0

  1. Написать программу : Изменить регистр букв в словах, в которых есть мягкий знак. Паскаль

  1. Описать процедуру InvIntFile(S), меняющую порядок следования элементов файла целого типа с именем S на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами. В Паскале

  1. Вопрос: как в данном решение изменить цвет фона на синий?

  1. Суть проблемы такая. Имеется у меня в двумерном массиве квадратная матрица. В процедуре, путем некоторых действий в ней определяется строка (ведущая строка). Мне надо провести со всей матрицей, определенные манипуляции в цикле, не трогая при этом эту строку. Т.е. все элементы должны обработаться в цикле, а эта строка должна остаться неизменной. Как это сделать, при том, что я заранее не знаю, что это будет за строка? Пример простенький приведу для сравнения. Имеем матрицу 1 2 3 4 5 6 7 8 9 Та строка в которой самое большое число - становится ведущей, и остается неизменной. к остальным прибавить половину ведущей строки. (повторюсь, это просто пример для наглядности.) И вот если запустить цикл for i:=1 to 3 for j:=1 to 3 - то он и ведущую строку зацепит. Нет какого нибудь способа ее пропустить? Мне пришло в голову, записывать эту строку в отдельный массив, а потом возвращать на место - но это в условиях моей реальной задачи - очень неудобно и может багами аукнуться. Есть у кого что посоветовать?Добавлено через 22 минуты Даже нет... Поразмыслив я понял, что записывать эту строку в отдельный массив, а потом возвращать на место - у меня не получится. Так как тогда цикл все равно изменит строку и ответ у других переменных будет не правильный...

  1. 2. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования. Задачу решить без с использования оператора цикла, решать без массива