)pascal abc 1. развернуть обе половинки массива в обратном порядке. считая, что массив имеет четное число элементов. пояснения из массива (1, 2, 3, 4, 5, 6, 7, 8) нужно получить массив (4, 3, 2, 1, 8, 7, 6, 5). 2. сдвинуть все элементы массива на одну позицию влево (циклически). первый элемент должен оказаться на месте последнего. 3. сдвинуть все элементы массива на одну позицию вправо (циклически). последний элемент должен оказаться на месте первого.

170

412

Посмотреть ответы 2

Ответы на вопрос:

alexplotnikov201

Информатика

4,8(36 оценок)

во всех программах у меня будет использоваться процедура swap:

procedure swap(a: ^real; b: ^real); var t: real; begin t : = a^; a^ : = b^; b^ : = t; end;

swap(x,y) - меняет местами значения x и y.

var a: array[1..100] of real; i, j, n: integer;

begin

readln(n); for i : = 1 to n do read(a[i]); for j : = 1 to (n div 2) - 1 do for i : = 1 to (n div 2) - j do swap(a[i], a[i + 1]); for j : = 1 to (n div 2) - 1 do for i : = (n div 2) + 1 to n - j do swap(a[i], a[i + 1]); for i : = 1 to n do writeln(a[i])end.

var a: array[1..100] of real; i, n: integer;

begin

readln(n); for i : = 1 to n do read(a[i]); for i : = 1 to n - 1 do swap(a[i], a[i + 1]); for i : = 1 to n do writeln(a[i])end.

var

a: array[1..100] of real; i, n: integer;

begin

readln(n); for i : = 1 to n do read(a[i]); for i : = n downto 2 do swap(a[i], a[i - 1]); for i : = 1 to n do writeln(a[i])end.

Ivan326154353

Информатика

4,4(40 оценок)

Эти файлы будут отобраны по 4-й маске. ответ: c*m*.doc*

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.