30 напишите программу, которая в последовательности - вопрос №26243830 от lisa22151 26.03.2020 09:49

Question

Информатика: 30 напишите программу, которая в последовательности натуральных чисел определяет количество самых больших чисел в последовательности. программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 100 введённые числа по модулю не превышают 300 программа должна вывести одно число: количество самых больших чисел в последовательности. пример работы программы: входные данные 5 выходные данные 2 15 27 24 12 27

lisa22151 · Answer

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....