Программа прочитает от пользователя 10 чисел, после этого выведет на экран второе самое большое число.

Пример:

После ввода:

5

44

80

1

8

100

11

90

2

6

Программа выведет:

90

Question

Информатика

Далмат

20 мая, 04:06

Программа прочитает от пользователя 10 чисел, после этого выведет на экран второе самое большое число.

Пример:

После ввода:

5

44

80

1

8

100

11

90

2

6

Программа выведет:

90

+4

Ответы (1)

Знаете ответ на вопрос?

Харламп · Answer 1

Begin

var a:=ReadArrInteger ('Введите 10 чисел:',10) ;

var m:=a. Where (x->x
writeln ('Второй максимум = ', m) ;

end.

Пример:

Введите 10 чисел:

5

44

80

1

8

100

1

90

2

6

Второй максимум = 90

Программа прочитает от пользователя 10 чисел, после этого выведет на экран второе самое большое число.Пример:После ввода:5448018100119026Программа выведет:90