Вцелочисленных массивах а и b содержатся длины катетов десяти прямоугольных треугольников (а[i] - длина первого катета, b[i] - длина второго катета i-го треугольника найдите треугольник с наибольшей площадью. выведите его номер, длины катетов и площадь. предусмотрите случай, когда таких треугольников несколько.

Const       n = 10; var       a, b: array[1..n]of real;       i: integer;       s, maxs: real; begin       for i : = 1 to n do       begin               a[i] : = random(3, 10);               b[i] : = random(3, 10);                             if (maxs < a[i] * b[i]) then maxs : = a[i] * b[i];       end;             for i : = 1 to n do               if (maxs = a[i] * b[i]) then                       writeln(i, ' площадь=', a[i] * b[i] * 0.5, ' а=', a[i], ' b=', b[i]);       end.

Program test; var   n, j, max: integer;   numb: array[1..7] of integer; begin   max : = numb[1];   n : = 1;   for j: =2 to 7 do   begin           if count[j]> max then           begin                 max : = count[j];                 n: =j;           end;     end;     for j: =2 to 7 do writeln ('j= ', max-count[j]); end; end.

Var i,x1,x2: integer; y: real; begin writeln('введите х нач и х конечное'); readln(x1,x2); writeln('введите шаг для х'); readln(i); while x1< =x2 do     begin           if sin(x1)/cos(x1)< > 0 then               begin                         y: =(sin(x1)+2*cos(x1))/(sin(x1)/cos(x1));                         writeln(x1: 4,y: 10: 2);               end;             x1: =x1+i;     end; end.