Var a, b:array[1..10000] of integer; n, count, i, ianswer, cnt: integer; Begin Readln(n);//количество пар For i:= 1 to n do begin Read(a[i]);//читаем первый катет Readln(b[i]);//читаем второй катет end; ianswer:= 1; count:= 1; For i:= 2 to n do begin if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count); if a[i]*b[i] > a[ianswer]*b[ianswer] then begin count:= 1; ianswer:=i; end; end; if count = 1 then begin Writeln('Треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer], 'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. Номер треуголника: ', ianswer); halt; end; Writeln('Всего ', count, ' Треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]); cnt:= 1; For i:= 1 to n do if a[ianswer]*b[ianswer] = a[i] * b[i] then begin Writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. Номер этого треугольника:', i); inc(cnt); end;
Незнаю
Объяснение: