Ответы
Ответ дал:
0
var a:array[1..100] of integer;
i:integer;
begin readln(n);
for i:=1 to n do
begin
read(a[i]); // Заполняем массив
if i mod 3=0 then // Проверка на кратность номера элемента 3ем
write(a[i], ' ');
end;
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад