{* Задача 2 *}

Unit S2_Z2;
Interface
Implementation
Begin
 writeln('

Заполнение массива Х(n) по правилу: Хi =1, если в i-м столбце
заданной матрицы есть хотя бы один элемент превышающий заданное значение С,
иначе Xi=0. Найти общее число элементов, больших С.

');
End.

Program S2_Z2;

Uses S2_Z2.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  m = Array[1..100, 1..100] Of integer;
  mas = Array[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 moped(m : integer;
n                 : integer;
Var {* Необходимые переменные *}
  y : m);
Var {* Объявление переменных *}
  i : integer;
  j : integer;
  c : integer;
  k : integer;
  X : mas;
Begin
  k := 0;
  writeln('введите величину С=');
  readln(c);
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    x[j] := 0;
  For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
      If y[i, j] > c Then
      Begin
        X[j] := 1;
        k := k + 1;
      End;
  writeln('элементы массива Х:');
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    write(X[j], ' ');
  writeln; {* Пропускаем одну строку *}
  writeln('число элементов матрици превышающих число ', c, ' равно ', k)
End;
Begin
  vvod(2, 5, A);
  moped(2, 5, A);
  readln; {* Ждем нажатия Enter *}
End.