Составить программу заполнения массива ,не используя клавиатуру ,числами :...

Question

Составить программу заполнения массива ,не используя клавиатуру ,числами : -2,4,6,-8,-10,12,-14,-16,-18,22
В BPascal

Answer 1

1 uses crt; 2 var a:array[1..10]ofinteger; 3 i:byte; 4 begin5 for i:=1to10do6 begin7 ifodd(i)then a[i]:=i-(i*3)8 else a[i]:=i*2; 9 write(a[i]:4); 10 end