ПАСКАЛЬ АБС!! 10 КЛАСС! СРОЧНО!! Дан массив А(n). Определите кол-во нечетных элементов...

Question

ПАСКАЛЬ АБС!! 10 КЛАСС! СРОЧНО!!

Дан массив А(n). Определите кол-во нечетных элементов массива, стоящих на четных местах. Выведите на экран исходный массив и найденное кол-во.

Answer 1

var n:integer; 

begin

for n:1 to n do

begin;

read A[n]; 

if n mod 2=0 then 

if A[n] mod 2=1 then 

writeln(A[n]);

end;

end.