Решить задачу Turbo pascal (двумерные массивы)

Question

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

Формат
входных данных:

Во
входном файле содержится число N (1≤N≤100), а затем матрица NxN.

Элементы
матрицы - числа из диапазона integer.

Формат
выходных данных:

В
выходной файл выдать сначала сумму чисел на главной, а затем - на побочной
диагонали.

Инна Займенцева · Accepted Answer

program q171307058;
const
 INPUT_FILE = 'C:\input.txt';
 OUTPUT_FILE = 'C:\output.txt';
var
 i, j, n, s1, s2: integer;
 f: TextFile;
 a: array [1..100, 1..100] of integer;
begin
 Randomize;
 Assign(f, INPUT_FILE);
 Rewrite(f);
 n := Random(100) + 1;
 WriteLn(f, n);
 for i := 1 to n do
 for j := 1 to n do
 WriteLn(f, Random(1000));
 Close(f);
 Reset(f);
 ReadLn(f, n);
 for i := 1 to n do
 begin
 for j := 1 to n do
 begin
 ReadLn(f, a[i, j]);
 Write(a[i, j]:3, ' ');
 end;
 WriteLn;
 end;
 Close(f);
 s1 := 0;
 s2 := 0;
 for i := 1 to n do
 begin
 s1 := s1 + a[i, i];
 s2 := s2 + a[n - i + 1, i];
 end;
 Assign(f, OUTPUT_FILE);
 Rewrite(f);
 WriteLn(f, s1);
 WriteLn(f, s2);
 Close(f);
 WriteLn(s1, ' ', s2);
 ReadLn;
end.