Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. Вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
