Составить программу, которая заполняет моссив A(n) в порядке 1 2 3 1 2 3
Составить программу, которая заполняет моссив A(n) в порядке 1 2 3 1 2 3
Гость
Ответ(ы) на вопрос:
ГостьProgram massiv123;
const n=30;
Type massiv=array[1..n] of integer;
var i:integer; a:massiv;
begin
for i:=1 to n do
if i mod 3=0 then a[i]:=3
else a[i]:=1;
for i:=1 to n do
if a[i]=3 then a[i-1]:=2;
write('Массив: ');
for i:=1 to n-1 do
write(a[i],',');
write(a[n],';');
end.
Если надо изменить кол-во цифр, то изменяйте в const n=кол-во;
Гость// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var n:=ReadInteger('n=');
SeqGen(n,1,x->x mod 3 +1).Println
end.
Пример
n= 15
1 2 3 1 2 3 1 2 3 1 2 3 1 2 3
Не нашли ответ?
Похожие вопросы