Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачу в Паскале.
Составьте программу, выясняющую, имеются ли в столбцах двухмерного массива A(N,M) повторяющиеся элементы.
1 | Автор: alexcandr831 | 2012-03-05, 19:24   |  Репутация: [ + 0 ]
Т.е. выяснить есть ли в КАЖДОМ столбце повторяющийся элемент/элементы?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-06, 13:21   |  Репутация: [ + 211 ]
Да.
3 | Автор: alexcandr831 | 2012-03-06, 18:09   |  Репутация: [ + 0 ]
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
4 | Автор: Berestovskiy | 2012-03-06, 19:51   |  Репутация: [ + 211 ]
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
5 | Автор: Berestovskiy | 2012-03-06, 19:51   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2012-03-06, 19:51   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: