Дан массив из 25 целых чисел. элементы массива могут принимать целочисленные значения от -200 до 200. определите количество нулевых элементов, индексы которых не кратны 3.

Const
   N = 25;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(401)-200;
    Write(A[i],' ');
    if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
    End;
WriteLn;
WriteLn('k = ',k);
End.

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(25,-200,200); a.Println;
  Writeln('n=',a.Where((x,i)->(x=0) and ((i+1) mod 3<>0)).Count)
end.

Пример
13 -80 95 -146 127 -123 15 -98 51 119 -120 77 0 -9 85 165 -86 13 -37 157 -19 192 -80 156 178
n=1

Требования безопасности перед началом работы:

1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой

2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви

3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся

4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету

5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены

6. Разрешается работать только на том компьютере, который выделен на занятие

7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования

8. Запрещается выключать или включать оборудование без разрешения преподавателя

9. Напряжение в сети кабинета включается и выключается только преподавателем

      К работе в компьютерном классе допускаются лица данную инструкцию по технике безопасности и правилам поведения, медицинский осмотр и не имеющие противопоказаний по состоянию здоровья;     Работа учащихся в компьютерном классе разрешается только в присутствии преподавателя;     Во время занятий посторонние лица могут находиться в классе только с разрешения преподавателя;     Во время перемен между уроками проводится обязательное проветривание компьютерного кабинета с обязательным выходом учащихся из класса;