Курсовая работа: Информатика Алгоритмизация и программирование
write ('chislo strok m='); readln (m);
begin
if m=n then
s:=0;
for i := 1 to n do
begin
for j := 1 to m do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
writeln;
end;
begin
if i=j then s:=s+a[i,j];
writeln(s:6:3);
end;
if i<>j then
begin
s:=0;
for i := 1 to n do
begin
for j := 1 to m do
begin
s:=s+a[i,j];
end;
writeln(s:6:3);
end;
end;
readln;