Question

Напишите программу заполнения массива А[1:5] честными числами 1,3,5,7,9

Answer 1

Const
   K = 5;
Var
   A:array[1..K] of integer;
   i:integer;
Begin
Write('Массив нечётных чисел: ');
For i:= 1 to K do
    Begin
    A[i]:=i*2-1;
    Write(A[i],' ')
    End
End.