напишите программу определяющую количество максимальных чисел в массиве. массив состоит из 10 чисел

Ответы

Ответ дал: NoelleMarlow

На языке Паскаль:

const

n = 10;

var

i, a, max, count: integer;

begin

max = -32768 ;

count := 0;

writeln('МАссив:');

for i := 1 to n do

begin

read(a);

if a > max

then

begin

max := a;

count := 1;

end;

else

if a = max

then

inc(count)

end;

writeln('Count max = ', count);

end.

BobbyFresnel: И не стоит обижаться, когда Вам указывают на ошибки: иначе ведь не научиться.

BobbyFresnel: =32768 - это минимально возможное значение integer в Pascal ABC.

NoelleMarlow: Я не обижаюсь. Обидно, что за свою учебу. Благодарю. Эх, да я страюсь с натами то, скидываю сюда часть, и смотрю как решают, и решаю анлогично все остальное уже

BobbyFresnel: Максимум в последовательности всегда ищется, полагая вначале его равным минимально возможному значению. Минимум - полагая максимально возможному значению.

BobbyFresnel: Так все же, что это за наты такие, в которых оценка дается? Биты я знаю, а наты?

BobbyFresnel: Что до учебы - ну я не знаю, чему можно научить, на Pascal ABC - системе, умершей в 2007 году и работающей на языке Turbo Pascal образца 1983 года.

NoelleMarlow: Это единица измерения информации, определяется вроде как через логарифм. Дали задание по информатике , вот и мучаюсь. А за объяснениями к преподам подходишь -разводят руки. ЧУвствую зря трачу свое время.

BobbyFresnel: Я на форуме разработчиков Pascal ABC/ PascalABC.NET посмотрел - они пишут, что понятия не имеют, где сейчас можно разыскать дистрибутив Pascal ABC и удивляются, кому он сейчас нужен.

BobbyFresnel: Хм... поищу специально сейчас в Интернет про наты)))

BobbyFresnel: О! Нашел методичку Томскую (ТУСУР). "Напомним, что если логарифм двоичный, полученная информация измеряется вбитах, если десятичный —в дитах, если натуральный —в натах."

Ответ дал: BobbyFresnel

begin

var a := ArrRandom(10, 1, 9);

a.Println;

Println('Кол-во чисел, равных max:',

a.FindAll(p -> p = a.Max).Count)

end.

Приложения: