Регистрация
dk050805
19.06.2020 21:23
Информатика
Есть ответ 👍

Задание5.ТОЛЬКО ВСЕ ОТ НАЧАЛО ДО КОНЦА.

212
383
Посмотреть ответы 1

Ответы на вопрос:

arinasuper000
arinasuper000
4,8(45 оценок)

pascal:

var a,n,count,max,i: integer;

begin

count : =0;

max: = -1;

readln(n);

for i: =1 to n do

      begin

      readln(a);

  if (a> max) then

        begin

        max: =a;

  count: =1;

  end

  else

          begin

          if (a = max) then

        count: =count+1;

  end

      end;

writeln(count);

end.

Популярно: Информатика