Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Tier
1 / 1 / 1
Регистрация: 11.02.2010
Сообщений: 56
#1

Количество максимальных в последовательности - Turbo Pascal

12.02.2010, 15:07. Просмотров 553. Ответов 1
Метки нет (Все метки)

С помощью цикла создать программу ,которая обеспечит ввод n целых чисел и определяющую,сколько из них принимает наибольшее значение и каково это значение
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 15:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Количество максимальных в последовательности (Turbo Pascal):

Определить количество максимальных значений последовательности
С клавиатуры вводятся целые числа. Признак конца ввода – ноль. Определить...

Три максимальных числа последовательности
Задача заключалась в том, чтобы вывести на черный экран три максимальных числа...

Определить количество максимальных чисел
С клавиатуры вводятся целые числа. Признак конца ввода – ноль. Определить...

Определить количество максимальных элементов в массиве
Щас через минуты 2 будет к\р, поможете?))) Я буду выкладывать задачи! :drink: ...

Подсчитать количество максимальных элементов массива
Одномерные массивы.Задание.Подсчитать количество максимальных элементов.

Определить количество максимальных элементов в массиве
дан двумерный массив. Определить количество максимальных элементов. оформить...

1
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
12.02.2010, 15:35 #2
Лучший ответ Сообщение было отмечено Tier как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var n,i,max,k,a:integer;
begin
clrscr;
write('n=');
readln(n);
write('max=');
readln(max);{читаем первое число, пока оно максимальное}
k:=1;{количество=1}
for i:=2 to n do
 begin
  write('a=');
  readln(a);{вводим остальные числа}
  if a=max then inc(k){если= макс, считаем}
  else if a>max then{если больше}
   begin
    k:=1;{снова 1}
    max:=a;{новый макс}
   end;
  end;
write('max=',max,'  kol=',k);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2010, 15:35
Привет! Вот еще темы с решениями:

Подсчитать количество максимальных элементов массива
Помогите решить пожалуйста заранее спасибо) Подсчитать количество...

Подсчитайте количество максимальных элементов списка
Подсчитайте количество максимальных элементов списка Добавлено через 12...

Подсчитайте количество максимальных чисел встречающихся целочисленном массиве.
Ребят такая задача. Подсчитайте количество максимальных чисел встречающихся...

Найти количество минимальных|максимальных из данных десяти целочисленных элементов
3. Найти количество минимальных|максимальных из данных десяти целочисленных...


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

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

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