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

Вводится последовательность из n целых чисел, найти максимальное среди них

07.04.2015, 19:17. Показов 5310. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Вводится последовательность из n целых чисел. Найти максимальное среди них.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2015, 19:17
Ответы с готовыми решениями:

Вводится 6 чисел, найти среди них максимальное и минимальное, и вывести их сумму.
Вводится 6 чисел, найти среди них максимальное и минимальное, и вывести их сумму. Помогите...

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

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

Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10
6) Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.

2
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
07.04.2015, 20:16 2
Лучший ответ Сообщение было отмечено ipod96 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  i, n, x, max: integer;
 
begin
  Write('Введите длину последовательности: ');
  ReadLn(n);
  max := -MAXINT - 1;
  WriteLn('Введите последовательность из ', n, ' целых чисел: ');
  for i := 1 to n do
  begin
    ReadLn(x);
    if x > max then
      max := x
  end;
  WriteLn('MAX = ', max)
end.
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
37037 / 20491 / 4244
Регистрация: 12.02.2012
Сообщений: 33,852
Записей в блоге: 13
08.04.2015, 15:14 3
Почему-то при поиске максимума многие стремятся присвоить аккумулятору "самое отрицательное число"... А ведь можно поступить так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Write('Введите длину последовательности: ');
  ReadLn(n);
  WriteLn('Введите последовательность из ', n, ' целых чисел: ');
  readln(max);
  for i := 1 to n-1 do
  begin
    ReadLn(x);
    if x > max then
      max := x
  end;
  WriteLn('MAX = ', max)
end.
1
08.04.2015, 15:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2015, 15:14
Помогаю со студенческими работами здесь

Вводится последовательность из N целых чисел. Найти сумму положительных чисел.
Вводиться последовательность из N целых чисел. Найти сумму положительных чисел.

Вводится последовательность из N целых чисел, найти количество нулей
1. Вводится последовательность из N целых чисел, найти количество нулей. Нужны программы на...

Вводится последовательность из N целых чисел. Найти два наименьших числа
вводится последовательность из N целых чисел. Признак окончания ввода число 0.Найти два наименьших...

Вводится последовательность из N положительных целых чисел, найти наименьшее число
2. Вводится последовательность из N положительных целых чисел, найти наименьшее число. Нужны...


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

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

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