Курсовая работа: Программы в среде Turbo Pascal

A:array [1..n,1..n] of real;

B:array [1..n,1..n] of real;

begin

clrscr;

x1:=4;

y1:=4;

writeln ('Vvod dannix' );

for i:=1 to n do

begin

for k:=1 to n do

begin

Gotoxy(x1,y1);

readln(a[i,k]);

x1:=x1+8;

end;

x1:=4;

y1:=y1+1;

end;

Gotoxy(x1,y1);

writeln ('Vivod dannix');

x1:=4;

y1:=y1+2;

for i:=1 to n do max[i]:=0;

for k:=1 to n do

for i:=1 to n do

if abs(a[i,k])>max[k] then

max[j]:=abs(a[i,k]);

Gotoxy(x1,y1);

writeln('Vvivod matrichi B[i,k]');