Получить массив х(n) по правилу хi =1 если в iм столбце заданной

Получить массив х(n) по правилу хi =1 если в iм столбце заданной

25.01.2012 13:26

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

program S2_Z2;
type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;
var A:m;

procedure vvod(m,n:integer;var x:m);
var i,j: integer;
begin writeln('введите элементы массива');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;

procedure moped(m,n:integer;var y:m);
var i,j,c,k:integer; X:mas;
begin k:=0; writeln('введите величину С='); readln(c);
for j:=1 to n do x[j]:=0;
for j:=1 to n do
for i:=1 to m do
if y[i,j]>c then begin X[j]:=1; k:=k+1; end;
writeln('элементы массива Х:');
for j:=1 to n do write(X[j],' ');
writeln;
writeln('число элементов матрици превышающих число ',c,' равно ',k)
end;

begin
vvod(2,5,A);moped(2,5,A);readln;
end.