Не могу решить, с массивами вообще фигово у меня( а до понедельника нужно сдать((
вот задачка:
Дана целочисленная матрица С(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;
Я понимаю что тут не правильно, но как нужно чтобы находился одинаковый элемент я не знаю((
Зарание ОРГОМНОЕ СПАСИБО!!!!
М | Теги |