var A:array[1..100] of integer; n,i,k:integer; begin write('Введите количество элементов массива: '); readln(n); writeln('Введите элементы массива: '); for i:=1 to n do read(a[i]);
for i:=1 to n do if (a[i]>0) and (not odd(a[i])) then inc(k); writeln('кол-во четных положительных элементов = ',k);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
