Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/163: Рейтинг темы: голосов - 163, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 25.01.2014
Сообщений: 8
1

Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение

25.01.2014, 09:50. Просмотров 29623. Ответов 2
Метки нет (Все метки)


Помогите пожалуйста
Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 09:50
Ответы с готовыми решениями:

Массивы. Найдите количество элементов, имеющих максимальное значение
Помоги пожалуйста:cry: Введите массив с клавиатуры и найдите (за один проход) количество...

Количество минимальных элементов массива за один проход
Здравствуйте! Очень нужна помощь! Есть достаточно простая задачка: "В массиве хранится информация...

Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел
Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел.

Найти среднее значение всех элементов списка за один проход
Здравствуйте, не могу понять как это за один проход. Написал программу которая вычисляет сумму,...

2
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
25.01.2014, 11:16 2
Лучший ответ Сообщение было отмечено Metom как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses CRT;
const n = 10;
var
    i, max,kol : integer;
    a:array[1..n] of integer;
begin
for i:= 1 to n do
begin
write('a[',i,']= ');
read(a[i]);
end;
writeln;
max:=a[1];
kol:=1;
for i:= 2 to n do
begin
  if max<a[i] then begin
                     max:=a[i];
                     kol:=1;
                   end
  else
    if max = a[i] then kol:=kol+1;
end;
writeln('max= ',max,'  количество: ',kol);
writeln;
end.
1
0 / 0 / 0
Регистрация: 25.01.2014
Сообщений: 8
25.01.2014, 11:59  [ТС] 3
а без count никак нельзя?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 11:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Выведите массив на экран и найдите количество элементов, значение которых равно нулю
&quot;Данный двухмерный массив размерностью 5X4. Заполните его случайными числами с интервала -20 .. 20:...

Найдите произведение элементов массива, имеющих значение кратное трем
1)Найдите произведение элементов имеющих значение кратное трем 2)найдите сумму элементов стоящих...

Найдите среднее арифметическое элементов матрицы, имеющих нечётное значение
Тема: Двумерные числовые массивы. Указание: Заполните двумерный числовой массив B(9,9) случайными...

Вычислить максимальное значение из элементов массива, имеющих четные индексы
Создать одномерный массив из 16 элементов. Вычислить максимальное значение из элементов, имеющих...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.