Срочно! Нужна помощь!!! 1. Заполнить массив натуральными числами 12345..... 2. Заполнить...

Question

Срочно! Нужна помощь!!!
1. Заполнить массив натуральными числами 12345.....
2. Заполнить массив по правилу:1 3 5 7 9 11 13.....
Вводится количество элементов массива (N<100).

Answer 1

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