Помогите с задачей, она вроде простая...., Дана матрица A(n*n). Получить вектор C(n)...... Опции

[Roofless]

Дали вот такую задачу: Дана матрица A(n*n) целых чисел. Получить вектор C(n), элементы которого равны произведениям элементов, стоящих на главной и побочной диагоналях матрицы. В полученном векторе найти min и max элементы. На место min элемента записать 0, а на место max элемента записать max возможное целое число. [b]
Она вроде как простая, но что то не получается; Помогите решить. Если можно с описанием.

[Roofless]

Поздравте меня! Все! Сделал! Выкладываю в виде прцедур:

Procedure Proizv(n:byte; {Є®«ЁзҐбвў® бва®Є}
                 Var a:Matrix;	{?бЇ®«м§гҐ¬ п ¬ ваЁж }
                 Var C:vector);	{‚лў®¤Ё¬л ўҐЄв®а}
Var
  i:byte;
Begin
  For i:= 1 to n do    {ЏҐаҐЎЁа Ґ¬ Є ¦¤го бва®Єг}
    c[i]:=a[i,i]*a[i,n-i+1];  {Ќ е®¦¤Ґ­ЁҐ н«Ґ¬Ґ­в®ў Ј« ў­®© Ё Ї®Ў®з­®© ¤Ё Ј®­ «Ё}
End;
{====‡ ¬Ґ­  ¬Ё­Ё¬ «м­®Ј® Ё ¬ ЄбЁ¬ «м­®Ј® н«Ґ¬Ґ­в =====}
Procedure Zamena(n:byte;  {Є®«ЁзҐбвў® бва®Є}
                 Var c:vector);	{ўлў®¤Ё¬л© ўҐЄв®а}
Var
  i,max,min,imax,imin:integer;
Begin
  max:=c[1]; {Њ ЄбЁ¬г¬г ЇаЁбў Ёў Ґ¬ §­ зҐ­ЁҐ ЇҐаў®Ј® н«Ґ¬Ґ­в }
  imax:=1;   {Ќ®¬Ґаг ¬ ЄбЁ¬г¬  ЇаЁбў Ёў Ґ¬ Ґ¤Ё­Ёжг}
  min:=max;  {ЊЁ­Ё¬г¬г ЇаЁбў Ёў Ґ¬ §­ зҐ­ЁҐ ЇҐаў®Ј® н«Ґ¬Ґ­в , ­ е®¤п饥бп ў max}
  imin:=1;   {Ќ®¬Ґаг ¬Ё­Ё¬г¬  ЇаЁбў Ёў Ґ¬ Ґ¤Ё­Ёжг}
  For i:= 2 to n do begin {ЏҐаҐЎЁа Ґ¬ н«Ґ¬Ґ­вл ўҐЄв®а , ­ зЁ­ п б® ўв®а®Ј®}
    If c[i]>max then begin  {Ќ е®¤Ё¬ §­ зҐ­ЁҐ ¬ ЄбЁ¬г¬  Ё ҐЈ® ­®¬Ґа}
      imax:=i;
      max:=c[i];
    end
    else If c[i]<min then begin  {Ќ е®¤Ё¬ §­ зҐ­ЁҐ ¬Ё­Ё¬г¬  Ё ҐЈ® ­®¬Ґа}
      imin:=i;
      min:=c[i];
    end;
  end;
  c[imax]:=99;  {ќ«Ґ¬Ґ­вг б ­®¬Ґа®¬ ¬ ЄбЁ¬г¬ ЇаЁбў Ёў Ґ¬ 99}
  c[imin]:=0;   {ќ«Ґ¬Ґ­вг б ­®¬Ґа®¬ ¬Ё­Ё¬г¬ ЇаЁбў Ёў Ґ¬ 0}
End;

Сообщение отредактировано: Roofless - 22.12.2007 21:45