{* Задача 1 *}

Unit PROGRAM S2_Z1;
Interface
Implementation
Begin
 writeln('Среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1.');
End.

Program S2_Z1;

Uses Program S2_Z1.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  m = Array[1..100, 1..100] Of integer;
Var {* Необходимые переменные *}
  A                : m;
Procedure vvod(m : integer;
n                : integer;
Var {* В работе нам потребуются переменные: *}
  x : m);
Var {* В работе нам потребуются переменные: *}
  i               : integer;
  j               : integer;
For i := 1 To m Do; {* Цикл для i => [1 .. m] *}
Procedure arf(m : integer;
n               : integer;
Var {* В работе нам потребуются переменные: *}
  x : m);
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  j  : integer;
  s  : integer;
  sr : real;
Begin
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
    s := 0;
    sr := 0;
    If x[i, n] = 1 Then
    Begin
      For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
        s := s + x[i, j];
      sr := s / n;
      writeln ('среднее арифметическое ', i, ' строки равно ', sr : 5 : 2);
    End;
    
  End;
  
End;
Begin
  vvod(3, 3, A);
  arf(3, 3, A);
End.