Найти два числа, модуль разности которых имеет наибольшее значение

@Танюше4ка · Регистрация: 20.01.2012

Студворк — интернет-сервис помощи студентам

Даны n чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение.

@Small Lamer · 03.04.2012, 17:11

Pascal

var
    n , i , j , p1 , p2 , ans :longint;
    a :array[1..1000] of longint;
begin
    readln(n);
    for i := 1 to n do read(a[i]);
    for i := 1 to n - 1 do
        for j := i to n do
            if (abs(a[i] - a[j]) > ans) then begin
                ans := abs(a[i] - a[j]);
                p1 := a[i];
                p2 := a[j];
            end; 
    writeln(p1 , '  ', p2);
end.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Найти два числа, модуль разности которых имеет наибольшее значение 03.04.2012, 15:12. Показов 1858. Ответов 1 Метки нет (Все метки) Даны n чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение. 0

Опции темы

Найти два числа, модуль разности которых имеет наибольшее значение

Решение