Программирование На Паскале

[elnurgoo]

Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице нет двух одинаковых столбцов и есть не менее 3 простых чисел, упорядочить строки матрицы по неубыванию суммы модулей элементов. Использовать процедуры и функции!

застрял на поиске одинаковых столбцов)))

просто напишите простую программу


а для профи то что ниже--->

если можно то в главной программе должно быть только три обращения к подпрограммам
Структура программы:
<pre><code class="delphi"></code></pre>
{процедуры и функции}
...;
{главная программа}
Assign(..);
Reset(..);
Assign(..);
Rewrite(..);
...
...
...
end.

в крайнем случае просто напишите пожалуйста_))))

 

[Senset]

k:=1; //индекс сравниваемого столбца
while k<n do
begin
for j:=k+1 to n do //индекс второго сравниваемого столбца
begin
sum:=0; //счетчик одинаковых чисел
for i:=1 to n do //бежим по строкам столбца
begin
if a[i,k]=a[i,j] then sum:=sum+1;
end;
if sum=n then break;
end;
if sum=n then break
else k:=k+1;
end;

таким образом получим:
k, j - одинаковые столбцы
если к=j=n тогда одинаковых столбцов нет

код не проверял, накатал на вскидку, идея обязательно должна быть такой (правда, к "break" некоторым преподавателям не нравятся)

 

[elnurgoo]

Senset, спасибо помог с идейкой))))

 

[elnurgoo]

забейте сам написал)))