{* Задача 210 *}

Unit ZADACH210;
Interface
Implementation
Begin
 writeln('Получить массив Х(n) по правилу: Хi =1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе Xi=0. Найти общее число элементов, больших С. ');
End.

Program zadach210;

Uses zadach210.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 с шагом 1 *}
    write(X[j], ' ');
  writeln; {* Пропускаем одну строку *}
  writeln('число элементов матрици превышающих число ', c, ' равно ', k)
End;
Begin
  vvod(2, 5, A);
  moped(2, 5, A);
  readln; {* Ждем подтверждения пользователя *}
End.