Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем - Pascal ABC (247816)
Формулировка задачи:
Дан целочисленный массив A размера N (< 15). Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем (3, 6, …), и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.
Решение задачи: «Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем»
textual
Листинг программы
var a: array [1..14] of integer; b: array [1..4] of integer; i, na, ib: integer; begin randomize; write('N = '); readln(na); write('Массив А: '); for i := 1 to na do begin a[i] := random(11); write(a[i], ' '); end; writeln; i := 3; ib := 1; write('Массив В: '); while i <= na do begin b[ib] := a[i]; write(b[ib], ' '); inc(ib); i := i + 3; end; writeln; writeln('Размер массива B: ', ib - 1); end.
Объяснение кода листинга программы
- Объявляются переменные: a - массив из 14 целых чисел; b - массив из 4 целых чисел; i - счётчик для цикла по массиву a; na - количество элементов в массиве a; ib - счётчик для цикла по массиву b;
- Задаётся случайное начальное значение для всех элементов массива a.
- Выводится сообщение с просьбой ввести количество элементов массива a.
- Вводится количество элементов массива a.
- Выводится сообщение «Массив А:» и последовательно выводятся все элементы массива a.
- Задаются начальные значения счётчиков i и ib, равные 3 и 1 соответственно.
- Выводится сообщение «Массив В:» и последовательно выводятся все элементы массива b, которые равны элементам массива a, увеличенным на 3.
- Увеличивается счётчик ib на единицу.
- Увеличивается счётчик i на 3.
- Цикл повторяется до тех пор, пока i не станет больше na.
- Размер массива b выводится в сообщении.