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

Массивы. Найдите количество элементов, имеющих максимальное значение

25.01.2014, 10:07. Просмотров 747. Ответов 1
Метки нет (Все метки)

Помоги пожалуйста
Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение (помоги еще с блок схемой)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2014, 10:07
Ответы с готовыми решениями:

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

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

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

Массивы. Среднее арифметическое всех элементов массива, имеющих нечётное значение
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать...

Найдите среднее арифметическое частных от деления элементов последовательсти на максимальное значение
Уважаемые форумчане,помогите решить задачу:Даны целые положительные числа...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26502 / 17797 / 7043
Регистрация: 22.10.2011
Сообщений: 31,320
Записей в блоге: 6
25.01.2014, 16:17 2
Лучший ответ Сообщение было отмечено Metom как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const 
  n = 10;
var 
  a : array[1 .. n] of integer;
  i, max, count : integer;
begin
  for i := 1 to n do
  begin
    write('a[',i:2,'] = '); readln(a[i]);
    if (i = 1) or (a[i] > max) then 
    begin
      max := a[i]; count := 1;
    end
    else if a[i] = max then inc(count);
  end;
  
  writeln('Максимальное значение = ', max, ' встречается ', count, ' раз(а)');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2014, 16:17

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

Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения
Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. Вывести...

В массиве целых чисел найти среднее арифметическое, максимальное значение, количество отрицательных элементов
6. Дан массив целых чисел. Найти:  - среднее арифметическое;  -...


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

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

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