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

code: #pascal
program Array1;
const 
  MaxN=10;
var
    i, n:integer;
    a: array [1..MaxN] of integer;
begin
    readln(n);
    for i:=1 to n do
       a[i]:=2*i-1;
    for i:=1 to n do
       write(a[i]:2);
    writeln;
    readln;
end.
Поделиться:

Похожие статьи: