Вывести элементы массива с порядковыми номерами, значения которых кратны k - Pascal

Узнай цену своей работы

Формулировка задачи:

Дан массив А размера N и целое число k(1<=K<=N). Вывести элементы массива с порядковыми номерами, значения которых кратны k.
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.
У меня получилось сделать с использованием условного оператора if, возможно ли эту задачу сделать без условного оператора?? Напишите код, если в моей задаче есть ошибки, при возможности исправьте

Решение задачи: «Вывести элементы массива с порядковыми номерами, значения которых кратны 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. В шестом блоке кода программа завершается.

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

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