{* Задача 209 *}

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

Program zadach209;

Uses zadach209.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 с шагом 1 *}
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.