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

Question

Информатика

Лавреня

22 мая, 15:48

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

+4

Ответы (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.