dekstero4eg
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Разомну-ка мозги 
1)
var M,N,i,j,count,A,B,k:integer;
matrix[0..N,0..M] of integer;
begin
readln(N,M);//здесь надо ввести N и M
//заполняем матрицу
for i:=1 to N do
for j:=1 to M do
matrix[i,j]:=1+random(50);
//заполнили
count:=0;
//собственно поиск
for A:=1 to N do
for B:=1 to M do
begin
n:=matrix[A,B];
k:=0;
for i:=1 to N do
begin
for j:=1 to M do
begin
if n = matrix[i,j] then
begin
inc(k);
matrix[i,j]:=0; // делаю повторяющиеся элементы нулями чтобы не мешались
end;
end;
end;
if k=0 then inc(count);
end;
Writeln(count);//на выходе количество различных элементов
end.
Ни Паскаля, ни Дельфи под руками нету, поэтому за правильность не ручаюсь. Я всё таки сисадмин, а не кодер .
Ща мож и над второй посижу |
Всего записей: 441 | Зарегистр. 29-06-2009 | Отправлено: 18:23 14-09-2009 | Исправлено: dekstero4eg, 18:28 14-09-2009 |
|
