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

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

1

Ответы и объяснения

2013-05-13T16:46:40+04:00

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.