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

Категория: Delphi/Pascal

2012-12-12 22:14:38

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.

Поделиться:

Sample Code

категории

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

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