Вставьте недостающие фрагменты программы.
Сформировать массив из 15 элементов. Ввод элементов осуществить с клавиатуры. Посчитать количество нечетных элементов массива. Вывести сформированный массив и количество нечетных элементов массива.
Var A: array [1..___ ] of integer;
I,k: integer;
Begin
for i := 1 to ____ do begin
Writeln(‘Введите ’,i,’ элемент массива’);
read (____);end;
for i := 1 to ____ do
If (a[i]______ )<> _____ then k:=k+___;
Writeln(‘Сформированный массив: ’);
For i:=1 to _____ Do
____________(a[i]:5);
Writeln(‘количество нечетных элементов= ’,_______);
End.
помогите пожалуйста расцелую в щёчки
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад