Удаление строк/столбцов и их сортировка

[olliki]

1. удалить из матрицы столбцы, в которых все элементы уникальны
2. упорядочить строки матриц по убыванию минимального среди совершенныхчисел

Срочно нужны программы!

[Sciv]

А Родине срочно нужны защитники!
Наработки где?

[olliki]

Сообщение от Sciv

А Родине срочно нужны защитники!
Наработки где?

program soversh;
var n,i,sum:longint;
begin
writeln('vvedite 4islo');
read(n);
i:=1;
while i<n
do
if ((n mod i)=0) then
begin
sum:=sum+i;
i:=i+1;
end
else
i:=i+1;
if sum=n
then writeln('sovershennoe')
else writeln('nesovershennoe');
end.

Эта программа пишет, совершенное число или нет

Помогите!!!

[Stilet]

Наработки где?

Видимо у сержанта )

[olliki]

Сообщение от Stilet

Видимо у сержанта )

Смотри выше

[eoln]

Сообщение от olliki

Смотри выше

Дык это совершенно разные программы. Общее у них то, что в этих программах используется совершенное число (вероятно, это было прошлое задание или просто найдено в сети).

Приводить "левый" код и выдавать за наработки не надо. Тут такое не любят. Показывай свои наработки по данным задачам... пусть они будут даже ужасно неправильными. Вот тогда поможем и исправим.

В противном случае рекомендую раздел фриланс - там очень быстро помогут, но не бесплатно

[olliki]

Сообщение от eoln

Дык это совершенно разные программы. Общее у них то, что в этих программах используется совершенное число (вероятно, это было прошлое задание или просто найдено в сети).

Приводить "левый" код и выдавать за наработки не надо. Тут такое не любят. Показывай свои наработки по данным задачам... пусть они будут даже ужасно неправильными. Вот тогда поможем и исправим.

В противном случае рекомендую раздел фриланс - там очень быстро помогут, но не бесплатно

Хотя бы направьте, как последующее с предыдущим сравнить-я знаю, но ума не приложу как все элементы столбца сранить с друг другом

const n=4;m=5;
var a:array[1..n,1..m] of integer; i,j,k,l:integer;b:array[1..n] of boolean;
begin
 for i:=1 to n do b[i]:=true;
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(10);  write(a[i,j]:10);
   if b[j] then
    for k:=i-1 downto 1 do
     if not a[k,j]=a[i,j] then
      begin b[j]:=false; break;end;
  end; writeln;
 end;  writeln;

 for i:=1 to n do begin
  for j:=1 to m do begin
   if b[j] then write(a[i,j]:10);
  end; writeln;
 end;

 readln
end.

Это удаление столбов, в которых все элементы уникальны.
Почему удаляет только первый столбец с уникальными элементами, а остальные оставляет???

[Stilet]

if not a[k,j]=a[i,j] then

Убери not. Кто его туда поставил?

[olliki]

Сообщение от Stilet

Убери not. Кто его туда поставил?

оно туда случайно попало.

Задание звучит так: Удалить из матрицы столбцы, в которых все элементы уникальны.
То есть было
1 2 5 6
4 6 7 6
6 2 3 4
7 9 1 4
Получаем
2 6
6 6
2 4
9 4


А в моём коде, что я выложила получаем
1 5
4 7
6 3
7 1

Помогите.......не получается ни как...уже неделю мучаюсь

[eoln]

Сообщение от olliki

Это удаление столбов, в которых все элементы уникальны.
Почему удаляет только первый столбец с уникальными элементами, а остальные оставляет???

Путаница с индексами и условиями,

const n=4;m=5;
var a:array[1..n,1..m] of integer; i,j,k,l:integer;b:array[1..M] of boolean;
begin
 for i:=1 to M do b[i]:=true;
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(10);  write(a[i,j]:10);
   if b[j] then
    for k:=i-1 downto 1 do
     if a[k,j]=a[i,j] then
      begin b[j]:=false; break;end;
  end; writeln;
 end;  writeln;

 for i:=1 to n do begin
  for j:=1 to m do begin
   if not b[j] then write(a[i,j]:10);
  end; writeln;
 end;

 readln
end.

Хотя там не удаление, а просто не вывод на экран...