Нахождение второго по величине числа в массиве

Lenka

Дата: Среда, 09.01.2008, 06:43 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

Здравствуйте!
Пожалуйста, помогите в решении задачи (Pascal).

Составить функцию, которая в массиве A[N] находит второе по величине число (т.e. вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов).

Добавлено (08.01.2008, 23:43)
---------------------------------------------
Задача уже решена!

Seqular

Дата: Среда, 09.01.2008, 12:47 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Code

Program ZAD;
Uses CRT;
Const N = 10;
Var a: Array[1..N] of Integer;
     i: Byte;

Function GetMax2: Integer;
Var max, max2: Integer;
Begin
max := a[1];
max2 := 0;
For i := 2 to N do
     Begin
     If (a[i] > max) then max := a[i];
     If (a[i] > max2) and (a[i] < max) then max2 := a[i];
     End;
GetMax2 := max2;
End;

Begin
ClrScr;
Randomize;
For i := 1 to N do
     Begin
     a[i] := Random(10);
     Write(a[i],' ');
     End;

Writeln(#13#10,'Предпоследний максимальный: ',GetMax2);
ReadKey;
End.

Возможно так?

Поддерживаю также проект сообщество молодых сисадминов

		Среда, 08.01.2025
	Pascal 4 All