Курсовая работа: Техническое задание на создание автоматизированных систем

readln

end;

procedure rezh2;

const lim=10;

var a:array [1..lim, 1..lim] of real;

q,z,i,j,n:integer; s,p:real;

begin

clrscr;

writeln('Режим 2');

writeln;

writeln('Введите размерность квадратичной матрицы, n: ');

readln(n);

writeln('Введите элементы матрицы (размерности ',n,'x',n,'): ');

gotoXY(wherex+10,whereY);

q:=whereX;

z:=whereY;

for i:=1 to n do begin

for j:=1 to n do begin

gotoXY(q*j,z+i*2);

read(a[i,j]);

s:=s+a[i,j];

if i=j then

p:=p+a[i,j];

end;

end;

writeln;

writeln;

writeln('Суммаэлементовравна:',s-p:5:2);

writeln;