Question

Дано натуральное N. f1, f2.. fn. Вывести на печать элементы массива имеющих индексы кратные 4.

Answer 1

uses Arrays;

var

 n, i: integer;

 arr: array of integer;

begin

 writeln('Введите n: ');

 readln(n);

 SetLength(arr, n);

 arr := CreateRandomIntegerArray(n);

 for i:=0 to n-1 do

 write(arr[i], ' ');

 writeln(' ', ' ', ' ');

 for i := 0 to n-1 do  

   if (i mod 4 = 0) then writeln(arr[i]);

end.