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

writeln;

writeln;

readln;

readln;

end;

procedure rezh3;

const lim=10;

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

n,i,j,x,y,k,l:integer; min,c:real;

begin

clrscr;

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

writeln;

min:=32000;

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

read(n);

writeln;

{Vvod elementov matrici}

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

gotoXY(whereX+10,whereY);

x:=whereX;

y:=whereY;

for i:=1 to n do

for j:=1 to n do

begin

gotoXY(x*j,i*2+y);

read(a[i,j]);

if a[i,j]<min

then