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

Показывай - что делал, что не получается.

Ну что то вроде этого...

Program MinMax;
Const
Nmax=9;
Type Matrix=array [1..nmax,1..nmax] of integer;
     Vektor=array [1..nmax] of integer;
Var n,m,i,j:integer;
    b:matrix;      
    result:vektor; 
    ch:char;
Var p,max,min:integer;
begin
  p:=0;
  for i:=1 to (n+1) div 2 do begin
    max:=a[i,i];
    min:=a[i,i];
    for j:=i to n+1-i do begin
      if a[i,j]>max then
        max:=a[i,j];
      if a[i,j]<min then
        min:=a[i,j];
    end;
    inc(p);
    res[p]:=max+min;
  end;
  if n mod 2=1 then dec(p);
  for i:=n div 2+1 to n do begin
    max:=a[i,n+1-i];
    min:=a[i,n+1-i];
    for j:=n+1-i to i do begin
      if a[i,j]>max then
        max:=a[i,j];
      if a[i,j]<min then
        min:=a[i,j];
    end;
    inc(p);
    res[p]:=max+min;
  end;
end;

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

правильно?

Боюсь, что нет. И даже совсем не похоже.
Давай, начинай делать эту задачу. И приходи за помощью, если что.

Стоп!
Раздел-то Задачи На Заказ
Ты хочешь за нее заплатить? Говори сроки.
Цена - 10 WMZ
Расчет через Форум.
Решение по факту оплаты, не ранее чем через сутки после договоренности.

Вот вроде ьы так:

const
nn=9;
Type Matrix=array[1..nn,1..nn] of integer;
     vector=array[1..nn] of integer;
Var n,i,j:integer;
    a:matrix;      {?бе(r)¤­ п ¬ ваЁж }
    b:vector;
Procedure matr(k:integer; var a:matrix; var b:vector);
Var
  i,j,p,s,p1,s1:integer;
Begin
  k:=0;
for i:= 1 to n do
  for j:= 1 to n do begin
  k:=k+1;
  a[i,j]:=k;
  end;
    for i:= 1 to n do
      b[i]:=a[i,i]*a[i,n+1-j];
      s:=0;
      p:=32000;
      for i:= 1 to n do begin
        if s<b[i] then begin
          s:=b[i];
          s1:=i;
          end;
      if p>b[i] then begin
        p:=b[i];
        p1:=i;
      end;
   end;
  b[s1]:=0;
  b[p1]:=32000;
end;

Мне нужно процедуру составить...

Последние два поста - мои. Можешь контактировать со мной здесь либо в личке.

я хочу чтобы мне помогли

Roofless, здесь задачи не обсуждают. Здесь решают за деньги.
Если хочешь - перенесу в раздел Задачи. Хочешь?

перенеси

Что то у меня здесь не получается

В целом программа вроде нормальная, за исключением некоторых недочетов. Например, почему у тебв k - формальный параметр? Что ты туда собирался передавать? Может, ты имел в виду n?
Дальше, вместо 32000 лучше использовать MaxInt. И вообще, вместо куска:

      s:=0;
      p:=32000;

- лучше сделать:

      s:=b[1];
      p:=b[1];

В этом случае программа сможет работать с отрицательными значениями тоже.
А в конце перепутаны максимум и минимум. Максимум у тебя - s, а ты в него кладешь 0, и наоборот.

Так ты вроде ее сделал.. Осталось внизу приписать основную программу.

Большое спасибо, посмотрю

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

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

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