0 / 0 / 0
Регистрация: 09.03.2013
Сообщений: 4
1

Определить сколько чисел принимает наибольшее значение

09.03.2013, 20:42. Показов 6517. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задача. Даны целое n>0 и целые числа а1, а2, ....аn. Определить сколько чисел принимает наибольшее значение. Например , в последовательности 2,5,7,4,7,6,0 наибольшее значение7 встречается 2 раза. Спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2013, 20:42
Ответы с готовыми решениями:

Определить, сколько чисел последовательности принимает наибольшее значение
Задание - Даны целое n>0 и целые числа a1, a2, ..., an. Определить,сколько чисел последовательности...

Задана последовательность из n целых чисел; определить сколько из них принимает максимальное значение
Составить блок-схему и программу для задачи с циклическим алгоритмом, используя оператор цикла с...

Определить сколько раз меняется знак в последовательности. Найти номера пары точек, расстояние мужду которыми наибольшее.
23. Задан массив действительных чисел. Определить, сколько раз меняется знак в данной...

Определить наибольшее значение переменной s после выполнения данной программы
1983 В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен ...

3
Заблокирован
09.03.2013, 21:14 2
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
27
Program Prog;
const
    N = 10;
var
    massive: array[1..N] of integer;
    maximum: integer;
    i: integer;
    count: integer;
begin
    Write('Enter ', N, ' numbers : ');
    for i:=1 to N do
        Read(massive[i]);
 
    maximum := massive[1];
    for i:=2 to N do
        if massive[i] > maximum then
            maximum := massive[i];
            
    for i:=1 to N do
        if massive[i] = maximum then
            count := count + 1;
            
    WriteLn(count);
            
    ReadLn;
    ReadLn;
end.
1
0 / 0 / 0
Регистрация: 09.03.2013
Сообщений: 4
10.03.2013, 10:50  [ТС] 3
а возможно ли без массива написать программу ?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
10.03.2013, 11:20 4
Цитата Сообщение от kerinsky Посмотреть сообщение
а возможно ли без массива
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  n,i,max,k,x: integer;
begin
  write('Ñêîëüêî ÷èñåë áóäåì ââîäèòü? ');
  readln(n);
  write('Ââåäèòå 1-å ÷èñëî: ');
  readln(max); k:=1;
  for i:=2 to n do
  begin
    write('Ââåäèòå ',i,'-å ÷èñëî: ');
    readln(x);
    if x>max then
    begin
      max:=x;
      k:=1;
    end else if x=max then inc(k);
  end;
  writeln('Íàèáîëüøåå ÷èñëî = ',max,', òàêèõ ÷èñåë ',k,' â ïîñëåäîâàòåëüíîñòè');
  readln;
end.
1
10.03.2013, 11:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2013, 11:20
Помогаю со студенческими работами здесь

Определить, какое наибольшее значение может иметь переменная s после выполнения программы?
1982 В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен...

Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К, равных К и больших К.
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или 2 в десятичной форме.
Заданная последовательность из 1OO чисел от 1 до 150. Определить, сколько чисел начинаются с 1 или...

Определить, сколько чисел принимает наименьшее значение и каково это значение
Наптсат программу, обеспечивающий, ввод n целых чисел и определяющий, сколько из них принимает...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru