Помогите народ плиз с задачкой....
Не могу решить, с массивами вообще фигово у меня( а до понедельника нужно сдать((
вот задачка:
Дана целочисленная матрица С(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;
М | Теги |
Вот я делал похожую задачку но там сравнивались 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.
М | Используй теги |