sonicp
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses crt;
var b:array [0..9] of integer;
c:array [0..9] of integer;
a:array [0..9] of array [0..9] of integer;
i,j,count,m,n,y:integer;
begin
ClrScr;
writeln('Skolko nomerov v massive? : ');
readln(count);
i:=0;
while (i<count) do
begin
write('B[',i,']=');
readln(b[i]);
for j:=0 to i-1 do
if (b[i]=b[j]) then
begin
writeln('Chislo ',b[i],' uje bilo, vvedite drugoe chislo');
i:=i-1;
end;
i:=i+1;
end;
write('Vvedite razmer matrici (m , n): ');
readln(m,n);
randomize;
for i:= 0 to m-1 do
for j:= 0 to n-1 do
A[i][j] := random (10);
for i:=0 to m-1 do
begin
for j:=0 to n-1 do
write(A[i][j],' ');
writeln;
end;
for y:=0 to count-1 do
C[y]:=0;
for y:=0 to count-1 do
for i:=0 to m-1 do
for j:=0 to n-1 do
if (B[y]=A[i][j]) then C[y]:=C[y]+1;
j:=0; {ispolzuem peremennyu kak flag}
for y:=0 to count do
if (C[y]>1) then
begin
writeln('Nomer B[',y,']=',B[y],' povtoriaetsia');
j:=j+1;
end;
if (j=0)
then writeln('Ni odno iz B[i] ne naideno v matrice');
readln;
end.
|
