Задание

Значение элементов массива A задаются с помощью вложенного цикла в данном фрагменте программы:

for I:=1 to 8 do

begin

A[I]:=I;

A[I]:= A[I] + I*(8 - I);

end;

Сколько элементов массива будут кратны 4?