Напишите программу заполнения массива А[1:5] честными числами 1,3,5,7,9
Напишите программу заполнения массива А[1:5] честными числами 1,3,5,7,9
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы