Задание:
Вводится последовательность натуральных чисел. Ноль – при-знак конца. Подсчитайте, сколько раз в этой последовательности встре-чается максимальное число, ивыдайте полученный результат.
Решение:
Program gt; var a,max,s: longint; begina: =-1; max: =-100; s: =0; while a<>0 dobeginread (a); if (a=max) then s: =s+1; if (a>max) then beginmax: =a; s: =1; end; end; writeln (s); end.
Знаете другой ответ?