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

[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 - 23.05.2008 21:21

[Гость]

Вот я делал похожую задачку но там сравнивались 2 вектора а не матрица(
Но примерно не сильно сложнее вот этой задачки должно быть видино:

program lab4v4;
uses crt;
var a,b:array[1..10] of integer;
    i,j:integer;
begin
 clrscr;
 writeln('vvedite elementi a:');
 for i:=1 to 6 do
  readln(a[i]);
 writeln('vvedite elementi b:');
 for i:=1 to 5 do
  readln(b[i]);
  writeln('v oba vectora vhodjat:');
 for i:=1 to 6 do
  for j:=1 to 5 do
    if a[j] = b[i] then
    writeln(a[j]);
end.

М

Используй теги

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