Задача: Нужно подсчитать сумму всех элементов матрицы, также подсчитать сумму строк, удовлетворяющих условию: A[i,1]<A[i,2]<...<A[i,n]
У меня проблема с подсчётом количества строк! помогите пожалуйста!
Код
program a_2_5_2_1;
uses crt;
var
n,i,j,k:integer;
a:array [1..100,1..100] of real;
s:real;
begin
textcolor(yellow);
clrscr;
s:=0;
k:=0;
writeln('vvedi razmer matricy=');
read(n);
for i:=1 to n do
for j:=1 to n do
begin
write('vvedite a[',i,',',j,']=');
readln(a[i,j]);
s:=s+(a[i,j]);
end;
Writeln('');
for i:=1 to n do
Begin
writeln;
for j:=1 to n do
Write(a[i,j]:5:0);
writeln('');
end;
for j:=1 to n do
for i:=1 to n do
begin
if (a[i,j]<a[i,j+1]) then begin
k:=k+1;
end;
end;
textcolor(15);
writeln('');
writeln('vyvod:',s:1:1);
writeln('');
writeln('stroki:',k:1);
textcolor(green);
Writeln('');
writeln('Thank you for use my program!');
readkey;
End.