Тема: Робота з матрицями (Delphi)
Допоможіть будь ласка знайти помилки : якщо у матриці A(4*4) середнє арифметичне 4 стовпця більше за середнє арифметичне елементів 3 рядка,то знайти мінімум матриці, інакше максимум.
Частина програмного коду:
....
begin
sum1:=0; ser1:=0;
for i:=1 to n do
begin
sum1:=sum1+a[i,4];
ser1:=sum1/n;
end;
sum2:=0; ser2:=0;
for j:=1 to n do
begin
sum2:=sum2+a[3,j];
ser2:=sum2/n;
end;
if ser1>ser2 then
begin
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
y:=min;
end;
if ser1<ser2 then
begin
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then max:=a[i,j];
y:=max;
end;
end;