Var t,i,x,max:integer;
begin
max:=0;t:=0;
repeat
begin
x:=0;
read(x);
if (x>0) and (x=max) then i:=i+1;
<span>if x>max then </span>
<span>begin </span>
max:=x;
i:=1;
end;
t:=t+1;
end;
until (x<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
<span>end.</span>
Я всегда поступаю правильно и решительно. Однажды когда я ехал в поезде, мальчик возраста четырёх лет и не мог открыть купе. Я подошел к нему и открыл купе. Я спросил у родителей: почему ваш ребёнок стучал в дверь, кричал, а вы на это даже не обратили внимание? Мама действительно возмутилась, а папа послал меня на три буквы. Я обратился к проводнику. Оказалось что папаша забыл билет и его выгнали на Урмарах =) А на улице -5 градусов. Кароче, мама и сын приехали в Казань, а папаша нет. Он походу взял такси, я видел его с машиной при отъезде. Кароче поездка незабываемая!
Молоко коровы козы может употр.в пищу
Кла ва и на та ша при го то ви ли пи ро г и то р т
Ежа и мятлик- это злаки, они опыляются ветром.
А колокольчик,клевер,василёк- они опыляются насекомыми.