Question

Дана не пустая последовательность чисел заканчивающаяся нулем. Найти максимум.

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cnt; var x,n,k:integer; begin n:=1;    {nomer elementa posledovatelnosti} k:=0;     {kolichestvo chetnyh elementov s nomerami,kratnym 5}writeln('введите число'); repeatbeginreadln(x); if(x mod2=0)and(n mod5=0)then inc(k); n:=n+1; end; until x=0; writeln('k=',k); readln; end.
За это 5 получил!