Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. Вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.

Question

Информатика

Лонгина

8 марта, 12:28

Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. Вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.

+1

Ответы (1)

Знаешь ответ?

Селестина · Answer 1

Var

a: array [1 ... 20] of integer;

i, k:integer;

Begin

Writeln ('Перечислите элементы массива: ');

For i:=1 to 20 do

read (a[i]);

For i:=20 downto 1 do

begin

If ((a[i] mod 2) 0) then

begin

k:=k+1;

write (a[i]:2);

end;

end;

writeln (' kol = ', k); / /

End.