Создайте и распечатайте в строчку одномерный массив, длиной N, следующим образом:...

Question

Создайте и распечатайте в строчку одномерный массив, длиной N, следующим образом:
А(1)=14, А(2)=15, А(3)=16, А(4)=-17, А(5)=-18, А(6)=-19, А(7)=20, А(8)=21, А(9)=22, ... ?

Answer 1

Const n=15; 
var a:array[1..n] of integer;
z,i:integer; 
begin
Randomize;
writeln('Массив A:');
z:=-1;
for i:=1 to n do
 begin
 if i mod 3 = 1 then z:=-z;
 a[i]:=z*(13+i);
 end;
for i:=1 to n do write(' A(',i,')=',a[i]);
writeln;
end.

Пример:
A(1)=14 A(2)=15 A(3)=16 A(4)=-17 A(5)=-18 A(6)=-19 A(7)=20 A(8)=21 A(9)=22 A(10)=-23 A(11)=-24 A(12)=-25 A(13)=26 A(14)=27 A(15)=28