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

@ipod96 · Регистрация: 04.04.2015

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

Kodzaev · 07.04.2015, 20:16

Pascal

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.

@Catstail · 08.04.2015, 15:14

Почему-то при поиске максимума многие стремятся присвоить аккумулятору "самое отрицательное число"... А ведь можно поступить так:

Pascal

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.

@ipod96 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 39
		1
	Вводится последовательность из n целых чисел, найти максимальное среди них 07.04.2015, 19:17. Показов 4782. Ответов 2 Метки нет (Все метки) 1. Вводится последовательность из n целых чисел. Найти максимальное среди них. 0

Опции темы

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

Решение