var
R: array[1..10,1..10] of integer;
i,j, n,p,q: integer;
cnt: integer;
begin
randomize;
n:= 1+random(10);
p:= 1+random(n);
q:= 1+random(n);
for i:=1 to n do
for j:=1 to n do
begin
R[i,j]:=Random(40);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
Write(R[i,j]:5);
end;
writeln;
end;
writeln;
cnt := 0;
for i:=1 to n do
for j:=1 to n do
if R[i,j] = R[p,q] then
inc(cnt);
writeln('cnt of R[',p,',',q,'] = ', cnt);
writeln;
for i:=p to n-1 do
for j:=1 to n do
begin
R[i,j]:=R[i+1,j];
end;
for i:=1 to n-1 do
begin
for j:=1 to n do
begin
Write(R[i,j]:5);
end;
writeln;
end;
readln;
end.
|
