Написать программу которая сформирует массив следующим образом:

A[1]=-1 A[2]=1 A[3]=-2 A[4]=2 A[5]=-3 A[6]=3 A[7]=-4

Question

Информатика

Ангелин

18 мая, 16:28

Написать программу которая сформирует массив следующим образом:

A[1]=-1 A[2]=1 A[3]=-2 A[4]=2 A[5]=-3 A[6]=3 A[7]=-4

+5

Ответы (1)

Знаете ответ?

Мартимьян · Answer 1

Var a:array[1 ... 7] of integer;

ar, b, c:integer;

begin;

ar:=1;

b:=1;

for c:=1 to 7 do

begin;

ar:=-1*ar;

a[c]:=ar;

writeln (a[c]) ;

if ar>0 then

ar+=1;

end;

end.

Написать программу которая сформирует массив следующим образом:A[1]=-1 A[2]=1 A[3]=-2 A[4]=2 A[5]=-3 A[6]=3 A[7]=-4

Написать программу которая сформирует массив следующим образом:

A[1]=-1 A[2]=1 A[3]=-2 A[4]=2 A[5]=-3 A[6]=3 A[7]=-4