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('введите число'); repeat begin readln(x); if (x mod 2=0)and(n mod 5=0)then inc(k); n:=n+1; end; until x=0; writeln('k=',k); readln; end.
За это 5 получил!