|
Помогите решить задачу в Паскале.
|
|
|
Составьте программу, выясняющую, имеются ли в столбцах двухмерного массива A(N,M) повторяющиеся элементы.
|
|
|
|
Т.е. выяснить есть ли в КАЖДОМ столбце повторяющийся элемент/элементы?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
schet,i,j,k,n:integer;
begin
schet:=1;
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(a[j,i]);
b[i]:=a[1,i];end;
for i:=1 to n do
for j:=2 to n do
for k:=1 to n do
if b[i]=a[j,k] then schet:=schet+1;
if schet>=n then writeln('Yes') else writeln('No');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
schet,i,j,k,n:integer;
begin
schet:=1;
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(a[j,i]);
b[i]:=a[1,i];end;
for i:=1 to n do
for j:=2 to n do
for k:=1 to n do
if b[i]=a[j,k] then schet:=schet+1;
if schet>=n then writeln('Yes') else writeln('No');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
