Данил1901

12.01.2020 00:26 •  Информатика

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

Сформировать массив из 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(‘количество нечетных элементов расцелую в щёчки