Одинаковые элементы в матрице! Задача!, Помогите решать вроде простую задачку... Опции

[MiLork]

Помогите народ плиз с задачкой....
Не могу решить, с массивами вообще фигово у меня( а до понедельника нужно сдать((

вот задачка:
Дана целочисленная матрица С(5,5). Найти значения, которые входят в матрицу более одного раза и распечатать.

вот то что я пытался, но тут не правильное сравнение элементов матрици:

program Lab5_z3;
var m:array[1..5,1..5] of integer; i,j,v,u,y:integer;
 begin
  writeln('Vvedite elementi matricti');
  for i:=1 to 3 do
   begin
    writeln('vvedite ',i,'-ii stolbec');
    for j:=1 to 3 do
    readln(m[i,j]);
   end;

for y:=1 to 3 do
 for u:=1 to 3 do
begin
 for i:=1 to 3 do
   for j:=1 to 3 do
 if m[y,u]=m[i,j] then v:=v+1;
end;

 writeln('otvet: ',v);
 end.


Вся беда в этом вот месте:

for y:=1 to 3 do
 for u:=1 to 3 do
begin
 for i:=1 to 3 do
   for j:=1 to 3 do
 if m[y,u]=m[i,j] then v:=v+1;
end;

Я понимаю что тут не правильно, но как нужно чтобы находился одинаковый элемент я не знаю((

Зарание ОРГОМНОЕ СПАСИБО!!!!

М

Теги

Сообщение отредактировано: klem4 - 24.05.2008 1:21