Задача номер 27

var

{объявляем переменные}

n:integer;

{количество пар}

a, b:integer;

{пары чисел, которые мы будем вводить}

s:integer;

{максимальная сумма}

raz:integer;

{минимальная разница между парами чисел}

i:integer;

{переменная для цикла}

begin

{начало программы}

readln(n);

{вводим количество пар}

s:=0;

{обнуляем переменную s}

raz:=10001;

{к разнице присваиваем максимально возможную разницу т. к. максимальное число 10 000, к переменной отвечающей за разницу присваиваем 10 000+1}

for i:= 1 to n do

{цикл с параметром i от 1 до n (n – количество пар, которое мы вводим вначале программы) этот цикл находит максимальную сумму и минимальную разницу между парами чисел}

begin

{начало чикла}

readln(a ,b);

{вводим пару натуральных чисел через пробел}

if ab then

{ищем максимальное число из пары введенных чисел (если число a больше b т. е. в паре чисел максимальное a)}

s:=s+a

{к сумме присваиваем a}

else s:=s+b;

{иначе (если число b больше a т. е. в паре чисел максимальное b) к сумме присваиваем b}

if (razabs(a-b)) and (abs(a-b)0) and (abs(a-b) mod 50) then

{если (разница между парами чисел меньше чем значение переменной raz) и (разница между парами чисел не равна 0) и (разница между парами чисел не кратна 5) то}

raz:=abs(a-b);

{к нашей переменной raz отвечающей за минимальную разницу, присваиваем разницу пар чисел a и b}

end;

{конец цикла}

if (s mod 5)=0 then

{проверяем, кратна ли 5 наша максимальная сумма, если кратна, то}

begin

{начало}

if raz10000 then

{если наша минимальная разница больше максимально возможного числа, то}

s:=0

{к максимальной сумме присвоить 0}

else s:=s-raz;

{иначе, если минимальная разница raz меньше максимально возможного числа, то от максимальной суммы отнимаем минимальную разницу}

end;

{конец условного оператора if}

writeln(s)

{выводим на экран результат работы программы (максимальную сумму или 0, если максимальную сумму не кратную пять найти не удалось)}

end.

{конец программы}