Помогите пожалуйста написать программу на pascale ABС

Question

Dronik3 Ученик (197), на голосовании 3 года назад

Дано натуральное N. Массив w1,w2....wn. определить сумму элементов массива индексы которых кратны 6

Answer 1

Кокошка Искусственный Интеллект (212277) 3 года назад

for i:=1 to n do if i mod 6 = 0 then S:=S+array[i];

Answer 2

ZAPIZDIL YZBEKOV Ученик (104) 3 года назад

BEGIN;
END.