Question

решить задачу по информатике​

Answer 1

Pascal

program for_14;

var a: array[-10..10] of integer; i:byte;

begin

for i:=-10 to 10 do

a[i]:=i;

for i:=-10 to 10 do

write(a[i]*3,' ')

end.