Помощь - Поиск - Пользователи - Календарь
Полная версия: дан массив.найти кол-во чётных элементов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
liveTOskate
помогите,мне экзамен никак не здать mega_chok.gif
Lapp
k:=0;  {счетчик четных чисел, обнуляем}
for i:=1 to n do {проходим по всему массиву в цикле}
if not Odd(a[i]) then Inc(k); {если a[i] НЕ нечетное - увеличиваем счетчик}
WriteLn(k); {вывод количества четных элементов}
Гость
Спасиба!
Better Kind
Цитата(Lapp @ 7.11.2007 2:57) *

если a[i] НЕ нечетное

[off]Как завернул )))[/off]
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.