Question

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

Answer 1

№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.

в остальных так же, только в последнем цикле другие вычисления (в зависимости от условий задачи)