Вопрос по информатике:
4. Подсчитайте за один проход, сколько его элементов равны максимальному элементу.
На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Выдайте количество искомых элементов массива.
- 26.11.2015 23:52
- Информатика
- remove_red_eye 895
- thumb_up 40
Ответы и объяснения 1
Var
a:array [1..100] of integer;
i,n,k,mx:integer;
begin
writeln('Введите n:');
readln(n);
mx:=1; k:=0;
writeln('Введите массив:');
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[mx] then
begin
mx:=i;
k:=0;
end else
if (a[i]=a[mx])and(imx) then k:=k+1;
end;
writeln('Количество элементов массива равных максимальному: ',k);
end.
- 27.11.2015 07:26
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.