Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количеств?
Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количеств?? членов последовательности a1,..,an, с чётными порядковыми номерами и нечётными значениями.
Гость
Ответ(ы) на вопрос:
Гость Var i,n,k:integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if odd(a[i]) and not odd(i) then inc(k);
writeln('Кол-во элементов с четн.номерами и нечетн.значениями: ',k);
end.
Не нашли ответ?
Похожие вопросы