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

Question

Информатика

Измарагд

1 октября, 09:28

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

+3

Ответы (1)

Знаете ответ?

Валентион · 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 получил!