Составить программу, которая формирует одномерный массив по формуле i*2-1 и выводит его на экран.
Var A:array[1..33] of integer; i:integer; Begin For i:= 1 to 33 do Begin A[i]:=i*2-1; Write(A[i],' ') End; End.
ща еще две