Регистрация
gordeeva2003
16.11.2022 03:48
Информатика
Есть ответ 👍

Вводится последовательность из n произвольных чисел. найти наибольшее число в последовательности. если таких чисел несколько, определить, сколько их. программирование

239
356
Посмотреть ответы 3

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

томкавеликая
томкавеликая
4,6(35 оценок)
// pascalabc.net 3.3, сборка 1531 от 30.08.2017 // внимание! если программа не работает, обновите версию! 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
DiaGirlNya
DiaGirlNya
4,7(96 оценок)
Var  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.
shopniceLol
shopniceLol
4,7(40 оценок)

ответ:калькулятор

Объяснение:

Забиваешь в инете калькулятор и ищешь тот который тебе подходит.

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