Вывести элементы массива с порядковыми номерами (индексами), кратными K

@itsNort · Регистрация: 21.10.2012

Author24 — интернет-сервис помощи студентам

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

Комментарий модератора

Один вопрос - одна тема.

@masterpiece · 31.10.2012, 12:37

Pascal

Const n=20;
Var i,k:integer; a:array[1..n]of integer;
Begin
    writeln('Исходный массив');
    for i:=1 to n do write(i:4);writeln;
    for i:=1 to n do
    begin
        a[i]:=random(100);
        write(a[i]:4);
    end;
    writeln();
    write('Введите k - ');
    readln(k);
    writeln('Элементы массива с порядковыми номерами (индексами), кратными K');
    for i:=1 to n div k do write(a[i*k]:4);
    readln
End.

	31.10.2012, 12:37

Опции темы

Вывести элементы массива с порядковыми номерами (индексами), кратными K

Решение