Дан массив из 25 целых чисел. Элементы массива могут принимать целочисленные значения от...

Question

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

Answer 1

// 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

Answer 2

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.