Массив в paskal abc. каждому элементу, стоящему ** 1, 4, 7-м и т.д., местах,...

Question

Массив в paskal abc. каждому элементу, стоящему на 1, 4, 7-м и т.д., местах, присваивается число 0, остальным - число 3.информатика

Answer 1

Const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 if i mod 3 = 1 then a[i]:=0 else a[i]:=3;
for i:=1 to n do write(a[i]:2);
writeln;
end.

Результат:
 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3