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

Question

Информатика

Глорибза

5 августа, 10:42

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

+2

Ответы (1)

Знаете ответ на вопрос?

Корнелия · 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.