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

А (1) = 14, А (2) = 15, А (3) = 16, А (4) = - 17, А (5) = - 18, А (6) = - 19, А (7) = 20, А (8) = 21, А (9) = 22, ... ?

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