написать программу Pascal. найти сумму побочной диагонали матрицы, умноженной на минимальный элемент главной диагонали

[Njr54321]

найти сумму побочной диагонали матрицы, умноженной на минимальный элемент главной диагонали
ввести матрицу через присоединенный файл и вывести ответы в присоединенный файл
матрица:

6.7  0.5  0.1
4.2  -10.1  0.25
0.33  -6.25  7.2

Program lab5;
const n=3;
var
a:array [1..n,1..n] of real;
   f:text;
   i,j:integer;
   sum,min:real;
begin
   assign (f,'C:\Users\1\Desktop\лаб5.txt');
   reset(f);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7:2);
  writeln;
 end;
sum:=0;
for i:=1 to n do
 begin
  sum:=sum+a[i,n-i+1];
  if i=1 then min:=a[1,1]
  else if a[i,i]<min then min:=a[i,i];
 end;
writeln('Сумма побочной диагонали=',sum:5:2);
writeln('Минимальный элемент главной диагонали=',min:5:2);
sum:=sum*min;
writeln('Их произведение=',sum);
end.

   0.00   0.00   0.00
   0.00   0.00   0.00
   0.00   0.00   0.00
Сумма побочной диагонали= 0.00
Минимальный элемент главной диагонали= 0.00
Их произведение=0

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[Aleksandr H.]

нет чтения из файла

[Njr54321]

не могу понять почему

[Serge_Bliznykov]

Сообщение от Njr54321

не могу понять почему

может потому что вы забыли написать что-то вроде

Read(f, a[i,j]);

[Njr54321]

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

[Serge_Bliznykov]

Сообщение от Njr54321

все равно не читает полностью

читать нужно в цикле:

for i:=1 to n do
 begin
  for j:=1 to n do begin
      Read(f, a[i,j];
      write(a[i,j]:7:2);
  end;
  ReadLn(f);
  writeln;
 end;