{* Задача 382 *}

Unit ZADACH382;
Interface
Implementation
Begin
 writeln('Определить среднее арифметическое отдельно всех положительных и отрицательных элементов матрицы А.');
End.

Program pas14559;
Uses crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  n = 5;
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  j  : integer;
  x  : Array[1..n, 1..n] Of real;
  a  : real;
  b  : real;
  c  : real;
  d  : real;
  s1 : real;
  s2 : real;
  f1 : text;
  f2 : text;
  Begin
  clrscr; {* Очищаем экран *}
  assign(f1, 'e:f1.txt'); {* Связывание f1 с файлом 'e:f1.txt' *}
  assign(f2, 'e:f2.txt'); {* Привязка переменной f2 к файлу 'e:f2.txt' *}
  reset(f1); {* Подготовка переменной f1 для чтения из файла *}
  rewrite(f2); {* Открытие файла для записи *}
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
  read(f1, x[i, j]);
readln(f1);
End;
a := 0;
b := 0;
s1 := 0;
s2 := 0;
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
  If (x[i, j] > 0) Then
    Begin
a := a + x[i, j];
s1 := s1 + 1
End
  Else If (x[i, j]0) Then
    c := a / s1
  Else c := 0;
    If (S2 > 0) Then
      d := b / s2
    Else d := 0;
      writeln(f2, 'среднее арифметическое(+)=', c : 1 : 5);
writeln(f2, 'среднее арифметическое(-)=', d : 1 : 5);
writeln; {* Пропускаем одну строку *}
writeln('среднее арифметическое(+)=' : 5, c : 1 : 5);
writeln('среднее арифметическое(-)=' : 5, d : 1 : 5);
close(f1); {* Закрыть файл f1 *}
close(f2); {* Закрыть файл f2 *}
readln; {* Ждем подтверждения пользователя *}
End...