Question

Помогите сделать задание из Pascal ABC точнее array 1 где сказано: Дано целое число N(>0). Сформировать и вынести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, ....

Answer 1

var a:array[1..100] of integer; i,n:integer;
begin
a[1]:=1;
writeln('Введите n - количество элементов');
read(n);
for i:=2 to n do
a[i]:=a[i-1]+2;
writeln('Полученный массив:');
for i:=1 to n do
writeln(a[i]);
end.