Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Alligator163
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 3
#1

Индексы одинаковых элементов в матрице - Pascal

21.02.2010, 21:05. Просмотров 770. Ответов 2
Метки нет (Все метки)

Дан двумерный целочисленный массив А(2, 10). Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы. Для удовлетворительного решения этой задачи надо не брать для сравнения одну и ту же пару элементов (A[i][j], A[p][q]) дважды и не запутаться в случаях, когда i = p и j = q.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.02.2010, 21:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Индексы одинаковых элементов в матрице (Pascal):

Дана целочисленная матрица А(10,10). Если на главной диагонали матрицы есть хотя бы два одинаковых элемента, то найти в матрице индексы минимального э
Дана целочисленная матрица А(10,10). Если на главной диагонали матрицы есть...

В матрице определить индексы равных элементов
Составить программу, которая для задаваемого пользователем двумерного числового...

Матрицы. Поиск одинаковых элементов в матрице
Дана матрица А(nxn).Написать программу поиска одинаковых элементов в этой...

написать программу поиска одинаковых элементов в матрице
дана матрица а(н*н). написать программу поиска одинаковых элементов в этой...

В данной матрице вычислить наибольшие элементы с отрицательных элементов рядков, которые имеют парные индексы.
Помогите плиз с задачкой! В данной матрице В(7,3) вычислить наибольшие...

Найти минимальный и максимальный элементы в матрице и их индексы
Кто сможет помоч,с меня +. Заполнить матрицу из 3 строк и 4...

2
Puporev
Модератор
54148 / 41781 / 28888
Регистрация: 18.05.2008
Сообщений: 98,331
21.02.2010, 21:30 #2
Лучший ответ Сообщение было отмечено Alligator163 как решение

Решение

Вот программа, замените k,l на p,q, не заметил.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
const m=2;
      n=10;
var a:array[1..m,1..n] of integer;
    i,j,k,l,i1,j1,i2,j2:byte;
begin
clrscr;
randomize;
writeln('Введите элементы матрицы, в том числе 2 одинаковых:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица A:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
for i:=1 to m do
for j:=1 to n do
for k:=1 to m do
for l:=1 to n do
if (a[i,j]=a[k,l])and((i<>k)or(j<>l)) then
 begin
  i1:=k;
  j1:=l;
  i2:=i;
  j2:=j;
 end;
writeln('Одинаковые элементы a[',i1,',',j1,']=',a[i1,j1],' и a[',i2,',',j2,']=',a[i2,j2]);
readln
end.
1
Alligator163
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 3
22.02.2010, 14:28  [ТС] #3
Спасибо огроменное)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 14:28
Привет! Вот еще темы с решениями:

В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек
В заданной целочисленной матрице 6x6 вывести индексы всех ее седловых точек...

В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти наибольший элемент главной диагонали и определить его индексы
В матрице 8х8 из вещественных чисел в пределах от -20 до 20 найти наибольший...

Найти индексы всех таких элементов, которые могут быть получены суммированием двух элементов этого же массива
Среди элементов массива найти индексы всех таких, которые могут быть получены...

Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов
дан масcив в котором N чисел. найти сумму отрицательных элементов массива...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru