ОГ
Ольга Гусева

Pascal ABC . Дан массив A размера N и целое число K (1 ≤ K ≤ N). Вывести элементы массива с порядковыми номерами...

Pascal ABC . Дан массив A размера N и целое число K (1 ≤ K ≤ N).
Вывести элементы массива с порядковыми номерами, кратными K: A K, A 2·K, A
3·K , . Условный оператор не использовать.

КК
Кирилл Красноруженко

Это уж совсем просто:

const n=15;
var a: array[1..n] of integer;
i,j,k: integer;
begin
for i:=1 to n do
read(a[i]);
readln(k);
j:=1;
while j*k<=n do begin
write(a[k*j],' ');
j:=j+1
end;
end.

Похожие вопросы
Как решить задачу по высшей математике? Даны целые числа n, k (n>=k>=0). Вычислить n(n-1)...(n-k+1)/k!
Дан массив A(N).Найти порядковый номер того из элементов, который наиболее близок к какому нибудь целому числу.
Даны массивы A(N) и B(N). .Вычесть из элементов массива A(N) произвдение максимального и минимального элементов B(N).Пом
Дан массив размера N. Вывести его элементы в обратном порядке.
помогите решить задачу по программированию (Visual Basic). Дано цілі числа n,k (n>=k, k>=0).Обчислити: n(n-1)...(n-k+1)
QBasic. Ветвление. Дано вещественное число A и целое число N. Вывести A в степени N:AN=A*A...*A(N раз).
Дан массив из-n элементов найти наименьший элемент массива
Решите задачу с помощью циклического алгоритма? Даны целые числа K и N. Вывести N раз число K.
Даны натуральное число n, действительная матрица A размером n x n.
Какой порядковый номер последнего элемента массива, размер массива 19?