Страница 1 из 1
Массив в Delphi
Добавлено: 10 апр 2007, 12:55
KAPAHDALLI
I need help ! Delphi. Нужно написать пограмму.которая из файла читает элементы массива и находит 3 максимальных из них.Если таких чисел несколько, то распечатать их нужно.
Re: Массив в Delphi
Добавлено: 10 апр 2007, 13:06
Blood_Magic
флуданул .
Re: Массив в Delphi
Добавлено: 10 апр 2007, 13:39
Хыиуду
И в чем проблема? Считывание данных из файла - стандартнейшая операция. Для трех максимальных - вводим массив, например, a=array[1..3] of N. Инициируем нулями. Далее для каждого прочитанного числа делаем примерно следующее:
если x>a[3], то a[1]:=a[2], a[2]:=a[3], a[3]:=x,
иначе если x>a[2], то a[1]:=a[2], а[2]:=x,
иначе если x>a[1], то a[1]:=x
все