массив в paskal abc. каждому элементу, стоящему на 1, 4, 7-м и т.д., местах, присваивается число 0, остальным - число 3.информатика
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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