Переписать элементы, находящиеся после максимального, в новый массив - Turbo Pascal
Формулировка задачи:
Ввести массив А. Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно. Массив В отпечатать. Если создание В невозможно, вывести об этом сообщение.
Прошу помочь.
Написал начало, а вот дальше не пойму как сделать.
Решение задачи: «Переписать элементы, находящиеся после максимального, в новый массив»
textual
Листинг программы
{Ввести массив А. Элементы, находящиеся после максимального, переписать в новый массив В, если это возможно. Массив В отпечатать. Если создание В невозможно, вывести об этом сообщение.} const n_max = 20; var a, b: array[1..n_max] of integer; j, ki, Max, n, i: integer; begin Write('vvidite n: '); Readln(n); Writeln('vvedite elementy massiva'); Max := -MaxInt; for i := 1 to n do begin Readln(a[i]); if a[i] > max then begin Max := a[i]; ki := i; end; end; writeln('Max: ', max, ' in position: ', ki); if ki = n then writeln('Невозможно') else begin j := 1; for i := ki + 1 to n do begin b[j] := a[i]; inc(j); end; for i := 1 to j - 1 do write(b[i]:4); end; end.
Объяснение кода листинга программы
- Вводится массив А, содержащий n элементов.
- Переменная Max инициализируется как наименьшее возможное значение типа integer.
- Цикл for проходит n раз. На каждой итерации считывается элемент массива А и сравнивается с максимальным значением.
- Если текущий элемент больше максимального, то обновляется значение переменной Max и переменной ki, которая указывает на индекс максимального элемента.
- После завершения цикла выводится значение переменной Max и значение переменной ki. Если ki равно n, то выводится сообщение о невозможности создания нового массива.
- Если ki не равно n, то начинается следующий этап.
- Создается новый массив b размером n.
- Цикл for проходит от ki+1 до n. На каждой итерации копируется элемент массива А в соответствующий элемент массива b.
- После завершения цикла выводится содержимое массива b.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д