Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Loc doc
1 / 1 / 0
Регистрация: 17.10.2010
Сообщений: 89
1

Найти количество строк матрицы, все элементы которых различны

20.10.2010, 13:14. Просмотров 871. Ответов 1
Метки нет (Все метки)

дана целочисленная матрицаразмера M*N. НАЙТИ количество ее строк, все элементы которых различны. помогите решить
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2010, 13:14
Ответы с готовыми решениями:

Массив: найти количество ее строк, все элементы которых различны.
помогите пожалуйста решить задачи 1)Дана целочисленная матрица размера MхN,...

Двумерный массив. Найти количество строк, все элементы которых различны
Двумерные: Дана целочисленная матрица размера MхN. Найти количество её строк...

Найти количество столбцов матрицы, все элементы которых различны
дана целочисленная матрица размера M x N . Найти количество ее столбцов , все...

Найти количество столбцов матрицы, все элементы которых различны
Дана целочисленная матрица размера M x N. Найти количество ее столбцов, все...

Найти количество столбцов матрицы, все элементы которых различны
Написать программу с использованием функции. Дана положительная целочисленная...

1
Lyohich84
178 / 177 / 163
Регистрация: 30.04.2010
Сообщений: 260
20.10.2010, 16:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,n,m,k,l:integer;
f:boolean;
begin
clrscr;
write('Kolvo strok matrici=');readln(m);
write('Kolvo stolbcov matrici=');readln(n);
randomize;
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(101)-50;
writeln('Matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
   write(a[i,j]:5);
  writeln;
 end;
k:=0;
for i:=1 to m do
 begin
  f:=true;
   for j:=1 to n do
     for l:=j+1 to n do
       if a[i,j]=a[i,l] then 
        begin
         f:=false;
         break;
        end;
  if f then k:=k+1;
 end;
writeln('Kolvo strok vse elementi kotorih razlichni=',k);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2010, 16:51

Найти количество столбцов матрицы, все элементы которых различны
Дана целочисленная матрица размера M x N. Найти количество ее столбцов, все...

Найти количество столбцов матрицы, все элементы которых различны
1. Дана матрица размером MxN, заполненная произвольным образом целыми числами...

Дана целочисленная матрица размера M x N. Найти количество ее строк, все элементы которых различны.
Дана целочисленная матрица размера M x N. Найти количество ее строк, все...


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

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

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