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

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

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


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

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

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

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

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

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30861 / 20184 / 7874
Регистрация: 22.10.2011
Сообщений: 35,048
Записей в блоге: 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2014, 16:17

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

Найдите максимальное значение их строки элементов
Фактическая матрица nm дана. Найдите максимальное значение их строки элементов.

Найти максимальное количество одинаковых элементов массива A={a[i]}, среди имеющих нечетные индексы
Найти максимальное количество одинаковых элементов массива A={a}, среди имеющих нечетные индексы

Найдите максимальное значение среди элементов массива
Дан целочисленный массив из n элементов. Элементы могут принимать целые значения от 1 до 500....

Найдите максимальное значение элементов чётных строк матрицы (матрица 5 на 5)
Ребят помогите пожалуйста! Никак не могу написать программу: Найдите максимальное значение...


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

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

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