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

[Roofless]

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

[Roofless]

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

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