Вопрос по информатике:
Определить кол-во наибольших чисел в произвольно заданном числовом массиве(за один проход по массиву).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.12.2015 00:05
- Информатика
- remove_red_eye 9764
- thumb_up 28
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var k:=1;
var max:=a[0];
for var i:=1 to a.Length-1 do
if a[i]>max then begin max:=a[i]; k:=1 end
else
if a[i]=max then k+=1;
Writeln('Количество макс. элементов: ',k)
end.
Пример
n= 17
-7 -9 1 -9 -3 7 1 -6 6 7 -2 2 7 -1 -4 6 4
Количество макс. элементов: 3
- 05.12.2015 01:47
- thumb_up 19
var a:array[1..n] of integer;
max,k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
max:=a[1]; k:=1;
for i:=2 to n do
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
writeln('max = ',max,' k = ',k);
end.
Пример:
1 4 9 20 9 5 8 20 14 15
max = 20 k = 2
- 06.12.2015 09:20
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.