Цитата(граф Монте-Кристо @ 26.4.2010, 14:38) 
Вы про третью или про четвёртую? В третьей проверяете, если a[i]>0, то s=s+1, не забудьте только перед циклом обнулить s. Нули можно будет посчитать отдельно,если хочется(в том же цикле).
В четвёртой - число n будет чётным, если n div 2 = 0, если же n div 2 = 1, то число нечётное. Собственно, Вам и не нужно проходить по всем числам и выбирать из них только нечётные. Можно просто в цикле считать сумму квадратов чисел вида (2*i-1), i пробегает все необходимые значения.
Я чето пытался сделать но неполучилось.
А 2-ая правильно?
program uud;
uses crt;
var x,y,r:byte;
begin
read(x,y);
if sqr(x)+sqr(y)=sqr(r )
then writeln('lejit') else writeln ('nelejit');
end.