Program Kursovaj;

Uses Crt;

Const Len=15;

Type

mtr=array[1..Len,1..Len] of real;

mas=array[1..Len] of real;

Var

i,j,n,t,dod,z:integer;

a:mtr;

x,m_max,m_min,o:mas;

u,flazhok,min,max,maxmax,minmin,sum,mm,ymn:real;

Procedure CreateMatrix(n:byte; var a:mtr; flazhok:real);

Var i,j:integer;

Begin

For i:= 1 to n do

Begin

For j:= 1 to n do

Begin

if flazhok<0

Then

Begin

a[i,j]:=(j-5.7)*sqrt(abs(sin((i*i+j*j)+(2-(j-5)*(j-5)))));

End

Else begin

write('a[',i,',',j,']=');

read(a[i,j]);

End; end; end; end;

Procedure OutputMatrix(n:byte; var a:mtr);

Var i,j:integer;

Begin

writeln('______________Matrica______________');

For i:= 1 to n do

Begin

For j:= 1 to n do

write('a[',i,',',j,']=',a[i,j]:5:2,' ');

Writeln;

Writeln;

End;

Writeln;

End;

Procedure OutputVector(n:byte;a:mtr;Var x,m_max,m_min:mas;

Var t,dod:integer; Var min,max,maxmax,minmin,sum:real);

Begin

writeln('Vector');

For i:=1 to n do

Begin

min:=a[i,1]; max:=a[i,1];

for j:=1 to n do

Begin

if min>a[i,j] then min:=a[i,j];

if max<a[i,j] then max:=a[i,j];

End;

m_max[i]:=max;

m_min[i]:=min;

End;

maxmax:=m_max[1];

minmin:=m_min[1];

For i:=1 to n do

Begin

if maxmax<m_max[i] then maxmax:=m_max[i];

if minmin>m_min[i] then minmin:=m_min[i];

End;

if (minmin>0) and (maxmax>0) then

Begin

for i:=1 to n do

Begin

t:=i; x[t]:=m_max[i]+m_min[i];

write('x[',t,']=',x[t]:5:3,' ')

End;

End else

if (minmin<0) and (maxmax<0) then

Begin

for i:=1 to n do

Begin

t:=i; x[t]:=m_max[i]+m_min[i];

write('x[',t,']=',x[t]:5:3,' ')

End;

End else

Begin

t:=0;

For j:=1 to n do

Begin

dod:=0;

for i:=1 to n do

Begin

if a[i,j]>0 then dod:=dod+1;

End;

if dod=n/2

Then

Begin

t:=t+1; sum:=0;

for i:=1 to n do

Begin

sum:=sum+a[i,j]

End;

x[t]:=sum;

write('x[',t,']=',x[t]:5:3,' ')

End;

End;

End;

Writeln;

End;

procedure fanction(i,z:integer;mm,ymn,u:real; Var o:mas);

Begin

z:=0;

for i:=1 to (t-1) do

Begin

z:=z+1;

o[z]:=x[i]+x[i+1];

End;

mm:=o[1];

ymn:=1;

for i:=1 to z do

Begin

if mm<o[z] then mm:=o[i];

End;

if mm>maxmax then

u:=mm

Else

Begin

for i:=1 to t do

Begin

if i mod 2=0 then

ymn:=ymn*x[i];

End;

u:=ymn;

End;

writeln('funksia U=',u:5:3);

End;

BEGIN

Clrscr;

writeln ('Vvedite razmernost matrix A: n');

write ('N='); read (n);

write('flazhok=');read(flazhok);

Writeln;

CreateMatrix(n,a,flazhok);

Clrscr;

write('N=',n:5);

Writeln;

write('flazhok=',flazhok:5:0);

Writeln;

OutputMatrix(n,a);

OutputVector(n,a,x,m_max,m_min,t,dod,min,max,maxmax,minmin,sum);