Срочно!!Нужно доделать программу

[Триш]

Безымянный.JPG
вот код

Program Lab9;
const
  n = 3;
 
type
  Index = 1..n;
  Vector = array[Index] of Integer;
  Matrix = array[Index] of Vector;
 
procedure VectorSum(const V: Vector; var Sum: Integer);
var
  i: Index;
begin
  Sum := 0;
  for i := 1 to n do
    Inc(Sum, V[i]);
end;
 
procedure VectorPrint(const V: Vector);
var
  i: Index;
begin
  for i := 1 to n do
    Write(V[i]:4);
  WriteLn;
end;
 
procedure MatrixCreate(var M: Matrix);
var
  i, j: Index;
begin
  Randomize;
  for i := 1 to n do begin
    for j := 1 to n do
      M[i,j] := Random(100);
  end;
end;
 
procedure MatrixPrint(const M: Matrix);
var
  i: Index;
begin
  for i := 1 to n do
    VectorPrint(M[i]);
end;
var
  A: Matrix;
  V1, V2: Vector;
  i: Index;
  S1, S2: Integer;
 
begin
  MatrixCreate(A);
  MatrixPrint(A);
  for i := 1 to n do begin
    V1[i] := A[i,i];
    V2[i] := A[i,n-i+1];
  end;
  WriteLn;
  Write('V1:');
  VectorPrint(V1);
  Write('V2:');
  VectorPrint(V2);
  VectorSum(V1, S1);
  VectorSum(V2, S2);
  WriteLn('Sum(V1) = ', S1);
  WriteLn('Sum(V2) = ', S2);
  if S1 < S2 then
    WriteLn('Pobochanya bolshe')
  else
    WriteLn('Glavnaya bolsche');
  ReadLn;
end.

теперь нужно сделать так, чтобы то число, которое получилось в сумме, встало на место чисел в главной и побочной матрице
ну например было
1 2 3
4 5 6
7 8 9
теперь нужно:
s1 2 s2
4 s1 6
s2 8 s1
помогите пожалуйста)

[Вадим Мошев]

встало на место чисел в главной и побочной матрице

Не матрицы, а диагонали.
____________________

Вот наброски кода.

{пусть s1, s2 - нужная сумма}

{вставляем в главную диагональ}
for i:=1 to N do begin
	a[i, i]:=s1;
end;

{побочная}
for i:=1 to N do begin
	a[i, N-i+1]:=s2;
end;

[Триш]

ну да,диагонали
проблема в том, что я не знаю как сделать, чтобы выводилось это

[Вадим Мошев]

Что выводилось?

[Триш]

матрица, в которой числа со значением суммы в главной и побочной диагоналях

[Stilet]

матрица, в которой числа со значением суммы в главной и побочной диагоналях

А ты где этот код взял? Он совсем не верный. Там нет работы с матрицами, соответственно и вывести ничего нельзя.

[Триш]

ну у меня же считает все по заданию и выводит, почему не верный
сейчас самое главное переделать,чтобы второе задание работало

[Stilet]

Не верный, потому что в нем нет намека на матрицу. Работа с одномеркой там есть, а вот для работы с матрицей он, если понимать задание буквально, непригоден.

[Триш]

как тогда правильно?

[newerow1989]

В конце дописать

  if S1 < S2 then
    WriteLn('Pobochanya bolshe')
  else
    WriteLn('Glavnaya bolsche');
  For i:=1 to n do
  begin
     A[i,n-i+1]:=s2;
     A[i,i]:=s1;
  end;
  MatrixPrint(A);
  ReadLn;

Сойдет?