1) Замечание: не очень понятно какое число надо делить на 3. В программе на 3 делится первый элемент из каждой пары. const n=12; var a:array[1..n] of integer; i:integer; begin for i:=1 to n div 2 do begin a[2*i-1]:=2*i; a[2*i]:=a[2*i-1] div 3; end; for i:=1 to n do write(a[i],' '); writeln; end.
Результат: 2 0 4 1 6 2 8 2 10 3 12 4
2) const n=12; var b:array[1..n] of integer; i:integer; begin for i:=1 to n do begin b[i]:=random(71)-10; write(b[i]:4); end; writeln; for i:=1 to n do begin b[i]:=b[i]-i; write(b[i]:4); end; writeln; end.