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