Удаление столбца

@Dimas1k · Регистрация: 07.02.2010

Author24 — интернет-сервис помощи студентам

Прошу помочь в написании проги)
Программа с процедурой, которая обеспечивает удаление из матрицы столбца с минимальным произведением совершенных чисел.
Основную я напишу и вызов процедуры тоже)
Вот то что смог сам сделать)

Pascal

program gg;
type matr=array[1..10,1..10] of integer;
var a:matr;
    i,j,m,n{тут ещё наверняка дописать придётся}:integer;
 
function sov(ch:integer):boolean;
var d,s:integer;
begin
 d:=0;
 for s:=1 to ch div 2 do
  if ch mod s=0 then d:=d+s;
 if (ch=d) and (ch<>0) then sov:=true
 else sov:=false;
end;
 
procedure ydal(var a:matr; var n:integer: m:integer);
{Вот здесь собственно говоря и нужна помощь}

@getto371 · 09.04.2010, 23:31

Пля тут вот недавно был точно такое и ответ был я не сохранил(

@Dimas1k · 12.04.2010, 16:46 **[ТС]**

помогите пожалуйста!!!

@getto371 6 / 6 / 0 Регистрация: 22.03.2010 Сообщений: 36
	09.04.2010, 23:31	2
	Пля тут вот недавно был точно такое и ответ был я не сохранил( 0

@Dimas1k 0 / 0 / 1 Регистрация: 07.02.2010 Сообщений: 11
	12.04.2010, 16:46 [ТС]	3
	помогите пожалуйста!!! 0