k:=0; {счетчик четных чисел, обнуляем} for i:=1 to n do {проходим по всему массиву в цикле} if not Odd(a[i]) then Inc(k); {если a[i] НЕ нечетное - увеличиваем счетчик} WriteLn(k); {вывод количества четных элементов}
Гость
7.11.2007 13:53
Спасиба!
Better Kind
7.11.2007 19:45
Цитата(Lapp @ 7.11.2007 2:57)
если a[i] НЕ нечетное
[off]Как завернул )))[/off]
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.