Массиве g(10) хранятся гипотенузы 10 прямоугольных треугольников, а массиве с(10) -их катеты. для каждого из треугольников найти второй катет массивы с именами в и s.

квадрат катета   равен разности квадрата гипотенузы и квадрата другого катета

program raf105;

var

  b,s,s2: array[1..10] of real;

  i: integer;

begin

  for i: =1 to 10 do

  begin

    b[i]: = random(11,20);

    s[i]: = random(2,10);

    s2[i]: = sqrt(power(b[i],2) - power(s[i],2));

    writeln('треугольник №',i);

    writeln('гипотенуза: ',b[i]);

    writeln('катет 1: ',s[i]);

    writeln('катет 2: ',s2[i]: 0: 1);

    writeln;

  end;

end.

var a: array [1..100] of integer; n,i: byte; m,b,c: byte; beginm: =1; b: =1; write('введите n = '); readln(n); for i: =1 to n do begin readln(a[i]); if a[i]< a[m] then m: =i; if a[i]> a[b] then b: =i; end; c: =a[m]; a[m]: =a[b]; a[b]: =c; write('результат: '); for i: =1 to n do write(a[i],' '); end.

п.с. как будет возможность набацаю на бейсике