Вопрос по информатике:
Ребят, помогите с решением задачи в Pascal, массивы. Вопрос- Дана матрица A(nxn). Вывести номера строк и столбцов в которых есть одинаковые элементы.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.03.2015 00:19
- Информатика
- remove_red_eye 3408
- thumb_up 23
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,30);
a.Println(3); Writeln(3*a.ColCount*'-');
Write('Строки с повторяющимися элементами: ');
var (i,k):=(0,0);
foreach var строка in a.Rows do begin
i+=1;
if строка.Countстрока.Distinct.Count then begin
k+=1; Print(i)
end
end;
if k=0 then Writeln('нет')
else Writeln;
Write('Столбцы с повторяющимися элементами: ');
(i,k):=(0,0);
foreach var столбец in a.Cols do begin
i+=1;
if столбец.Countстолбец.Distinct.Count then begin
k+=1; Print(i)
end
end;
if k=0 then Writeln('нет')
else Writeln
end.
Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
30 16 23 17 19 27
18 13 21 19 21 11
30 10 24 27 22 20
19 28 15 29 15 18
11 30 22 25 21 15
27 14 27 28 18 28
------------------
Строки с повторяющимися элементами: 2 4 6
Столбцы с повторяющимися элементами: 1 5
- 14.03.2015 15:34
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.