Переписать в новый целочисленный массив 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.

Объяснение кода листинга программы

  1. Объявляются переменные:   a - массив из 14 целых чисел;   b - массив из 4 целых чисел;   i - счётчик для цикла по массиву a;   na - количество элементов в массиве a;   ib - счётчик для цикла по массиву b;
  2. Задаётся случайное начальное значение для всех элементов массива a.
  3. Выводится сообщение с просьбой ввести количество элементов массива a.
  4. Вводится количество элементов массива a.
  5. Выводится сообщение «Массив А:» и последовательно выводятся все элементы массива a.
  6. Задаются начальные значения счётчиков i и ib, равные 3 и 1 соответственно.
  7. Выводится сообщение «Массив В:» и последовательно выводятся все элементы массива b, которые равны элементам массива a, увеличенным на 3.
  8. Увеличивается счётчик ib на единицу.
  9. Увеличивается счётчик i на 3.
  10. Цикл повторяется до тех пор, пока i не станет больше na.
  11. Размер массива b выводится в сообщении.

Оцени полезность:

14   голосов , оценка 4.5 из 5
Похожие ответы