Вывести элементы массива с порядковыми номерами, значения которых кратны k - Pascal
Формулировка задачи:
Дан массив А размера N и целое число k(1<=K<=N). Вывести элементы массива с порядковыми номерами, значения которых кратны k.
У меня получилось сделать с использованием условного оператора if, возможно ли эту задачу сделать без условного оператора?? Напишите код, если в моей задаче есть ошибки, при возможности исправьте
const n = 10; var f: array [1..n] of integer; k,i: integer; begin readln(k); for i:=1 to n do begin f[i]:= random(20); writeln(f[i]:10); end; for i:=1 to n do begin if f[i] mod k = 0 then writeln(i); end; end.
Решение задачи: «Вывести элементы массива с порядковыми номерами, значения которых кратны k»
textual
Листинг программы
const n = 10; var f: array [1..n] of integer; k,i: integer; begin randomize; writeln('Массив'); for i:=1 to n do begin f[i]:= random(20); write(f[i]:3); end; writeln; repeat write('Введите числа от 1 до ',n,' k='); readln(k); until k in [1..n]; writeln('Злементы с порядковыми номерами, кратными ',k); i:=k; while i<=n do begin write(f[i]:3); i:=i+k; end; end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве (равное 10 в данном примере);
- f - массив целых чисел;
- k - переменная для хранения значения k;
- i - переменная для хранения текущего индекса элемента массива;
- randomize - функция генерации случайного числа в диапазоне от 0 до 20 (включительно);
- writeln - функция вывода строки на экран;
- readln - функция чтения строки с экрана. В первой строке кода объявляется массив f с n элементами. Далее, во втором блоке кода, значение переменной k устанавливается в случайное число от 1 до 20. В третьем блоке кода происходит итерация по всем элементам массива f. Для каждого элемента выводится его значение с помощью функции write. В четвертом блоке кода пользователю предлагается ввести значение k. После этого, в пятом блоке кода, цикл while повторяется до тех пор, пока значение переменной i не станет больше значения переменной n. Внутри цикла выводятся значения элементов массива f с помощью функции write. В шестом блоке кода программа завершается.