Написать программу, осуществляющую заполнение и вывод ** экран массива состоящего из 10...

Question

Написать программу, осуществляющую заполнение и вывод на экран массива состоящего из 10 элементов последовательностью 1,3,5,7,... (Удвоенный порядковый номер минус 1)

Answer 1

for i := 1 to 10 do

  a[i] := i*2 - 1;

 

for i := 1 to 10

  write(a[i]);