Question

Вставьте недостающие фрагменты программы.

Сформировать массив из 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.



помогите пожалуйста расцелую в щёчки