Вводится массив(можно использовать случайное заполнение) Вывести ** экран количество...

Question

Вводится массив(можно использовать случайное заполнение) Вывести на экран количество нечётных элементов массива и индексы этих элементов. Pascal

Answer 1

const n=20;

var

a:array [0..n] of integer;

k,i: integer;

begin

randomize;

k:=0;

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i],' ');

end;

writeln;

writeln('Индексы нечетных элементов:');

for i:=1 to n do

if a[i] mod 2 <> 0 then

 begin

 write(i,' ');

 k:=k+1;

end;

writeln;

writeln('k = ',k);

end.

Пример:

Исходный массив:

62 21 39 17 75 30 10 29 80 1 88 93 50 48 17 9 41 2 1 8  

Индексы нечетных элементов:

2 3 4 5 8 10 12 15 16 17 19  

k = 11