4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
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;
end.
Подробно допишешь сам, чтобы было красиво читаемо
1. Когда цикл находится внутри цикла
2. Самый первый исполняемый цикл(внутри которого есть ещё циклы или цикл).
3. То что внутри внешнего цикла.
4. Вот смотри, внешний цикл(например - for) начинает работу, представим что у внешнего цикла переменная-счётчик i, а у внутреннего j. Первая итерация идёт... i = 1 и начинается работа внутруннего цикла и счетчик j проходится от 1 до 10(Почему 10? Ну просто я захотел, это количество итерации которое должно выполнить цикл) И ЭТО ВСЕГО ОДНА ИТЕРАЦИЯ ВНЕШНЕГО ЦИКЛА, В ТОТ МОМЕНТ КОГДА ВНУТРЕННИЙ ВЫПОЛНИЛСЯ ПОЛНОСТЬЮ(в зависимости от количества итерации внешнего цикла будет зависеть сколько раз будет выполнятся внутренний цикл)
