Вводится последовательность из N произвольных чисел. Найти наибольшее число в последовательности. Если таких чисел несколько, определить, сколько их.
программирование
программирование
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadInteger('n='));
var m:=a.Max;
var s:=a.Where(x->x=m);
if s.Count=1 then Writeln('Масимальное значение ',m)
else Writeln(s.Count,' максимальных значений, равных ',m)
end.
Пример
n= 5
6 3 6 6 2
3 максимальных значений, равных 6
co, N, max: integer;
begin
max := 0;
co := 1;
readln(N);
for var i := 1 to N do
begin
readln(N);
if N > max then
max := N
else if N = max then
co += 1;
end;
if co <> 1 then
writeln(max, ' ', co)
else
writeln(max);
end.