8

VAR
  I, J, N, M : INTEGER;
  SUM: REAL;
  X:ARRAY [1..100, 1..100] OF REAL;

BEGIN
  WRITE ('ВВЕДИТЕ ЗНАЧЕНИЕ N: ');
  READ (N);
  WRITE ('ВВЕДИТЕ ЗНАЧЕНИЕ M: ');
  READ (M);
  FOR I := 1 TO N DO
  BEGIN
    FOR J := 1 TO M DO
      BEGIN
        WRITE('ВВЕДИТЕ ЗНАЧЕНЕНИЕ X[',I,',',J,']: ');
        READLN( X[I,J] );
      END;
  END;
  FOR I := 1 TO N DO
  BEGIN
    SUM := 0;
    FOR J := 1 TO M DO
      SUM := SUM + X[I,J];
    WRITELN('СРЕДЕНЕЕ АРИФМЕТИЧЕСКОЕ В СТРОКЕ ',I,': ', SUM/M);
  END;
END.