Delphi.Матрицы!

[specnazkin]

Дана матрица А.Размерность матрицы определяется идентификаторами типа константа.Элементы матрицы задаются с использованием датчика случайных чисел.Диапазон значений:от-10 до 10.На экран вывести первоначальную матрицу и решение.
Задание.
Дана действительная матрица А=(aij)N*N .Определить количество элементов матрицы,которые больше суммы оставшихся элементов своей строки.
Вот такой алгоритм получился,но он как находит одно решение в строке переходит просматривать решения на следующей,а мне нужно чтобы он все кол-ва решений считал,как исправить ошибку?)Спасибо!

program Project82;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const 
rows=1;
cols=4;
var
A: array [1..rows,1..cols] of integer;
sum,k,count,i,j:integer;
begin 
for i:=1 to rows do 
begin 
for j:=1 to cols do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:5);
end;
begin
Writeln;
end;
begin
sum:=0;
for k:=1 to cols do if k=j then continue else sum:=sum+a[i,k];
if a[i,j]>sum then count:=count+1;
end;
end;
writeln('takih reshenii budet=',count);
Readln;
end.

[Stilet]

Предлагаю:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const  rows=3;cols=4;
var
 A: array [1..rows,1..cols] of integer;
 sum:array[1..rows] of integer;
 k,count,i,j:integer;
begin
 for i:=1 to rows do begin
  for j:=1 to cols do begin
   a[i,j]:=random(21)-10;
   sum[i]:=sum[i]+a[i,j];
   write(a[i,j]:5);
  end;
  Writeln('  ',sum[i]);
 end;
 count:=0;
 for i:=1 to rows do begin
  for j:=1 to cols do begin
    if a[i,j]>sum[i] then inc(count);
  end;
 end;
write(count);
Readln;
end.

Классика жанра...

[specnazkin]

спасибо)))))))))

[seriikorj]

Помогите пжлста начинающему..........надо в матрице размера 5x5 заполнить её случайными числами до 100....найти самое выс. число по главной диагонали и по побочной.....и поменять их местами.....никак не могу сделать....помогите плз!!!!!

[Mad_Cat]

for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
i1:=1;
for i:=1 to 5 do
if a[i,i]>a[i1,i1] then i1:=i;
i2:=1;
for i:=1 to 5 do
if a[i,n-i+1]>a[i1,n-i2+1] then i2:=i;

a[i1,i1]:=a[i1,i1]+a[i1,n-i2+1];
a[i1,n-i2+1]:=a[i1,i1]-a[i1,n-i2+1];
a[i1,i1]:=a[i1,i1]-a[i1,n-i2+1];
for i:=1 to 5 do begin
for j:=1 to 5 do 
write(a[i,j]:4);
writeln;
end;

[Stilet]

seriikorj

Одна тема - один автор.
Закрываю.