Матрицы Опции

[Dr. Froze]

решите пожалуйста задачу - очень надо!
Определить номера тех строк целочисленной матрицы A(n x k) , которые совпадают с массивом D(k) . Если таких строк нет, выдать соответствующее сообщение.

[Dr. Froze]

вот что есть...нихрена не работает...а сдавать уже послезавтра(

М

пользуемся тегами

uses crt;
var i,j,n,k,rez:integer;
D:array [1..10] of integer;
A:array[1..10,1..10] of integer;
flag1:boolean;
function flag(g,s:integer;U:array of integer):boolean;
var h:integer;
begin

flag:=false;
for h:=1 to g do
if s=U[h] then flag:=true;
end;
begin
clrscr;
flag1:=false;
readln(k,n);
for j:=1 to k do readln(D[j]);
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to k do
begin
readln(A[i,j]);
end;
end;
rez:=0;
for i:=1 to n do
begin
rez:=0;
for j:=1 to k do
begin
if flag(n,A[i,j],D)=true then rez:=rez+1;
end;
if rez=n  then begin writeln(' nomer stroki ',i);flag1:=true;end;
end;
for j:=1 to k do write(' ',D[j]);
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to k do
write(A[i,j],' ');
end;
if not(flag1) then writeln('nety');
readln;
end.

Сообщение отредактировано: klem4 - 15.05.2007 17:58