Паскаль 8,9,11,15 номера, если мало то хоть одно из них)

№8:var   matr: array [1..5,1..5] of integer;   arr: array[1..5] of real;begin  for var i:=1 to 5 do  begin      for var j:=1 to 5 do      begin          matr[i,j]:=Random(10);          write(matr[i,j]:3);      end;      writeln;  end;  writeln;  for var i:=1 to 5 do  begin      for var j:=1 to 5 do          arr[i]:=arr[i]+matr[j,i];      arr[i]:=arr[i]/5;  end;  writeln(arr);end.в остальных так же, только в последнем цикле другие вычисления (в зависимости от условий задачи)