program matrix;
uses crt;
var a:array[1..100,1..200] of real;
b:array[1..100] of real;
i,j,n:integer;
x:real;
begin
writeln('input n');
readln(n);
writeln('input x');
readln(x);
for i:=1 to n do
for j:=1 to 2*n do
a[i,j]:=random(10)+random(100)/100;
writeln;
clrscr;
writeln('-------------------');
writeln('x=',x:6:3,' n=',n:6:3)
writeln('matrix');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:6:3);
writeln;
end;
writeln;
writeln('-------------------');
for i:=1 to n do begin
b[i]:=1;
for j:=1 to m do
if a[i,j]>x then b[i]:=0;
end;
writeln('vector');
for i:=1 to n do begin
write (b[i]:6:3);
writeln;
writeln('-------------------');
readln;
end;