Курсовая работа: Информатика Алгоритмизация и программирование

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;

К-во Просмотров: 541
Бесплатно скачать Курсовая работа: Информатика Алгоритмизация и программирование