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

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

Задать свой вопрос
Аболинь Михон
*Чётными
Аринка Билуник
Паскаль?
Danka Klepyshev
Да
Денис Ровчан
Так это ж не чётные числа))
Нина Галстян
:D
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт