uses
crt;
const
strok=5;
stolb=5;
type
tip_strok=1..strok;
tip_stolb=1..stolb;
massiv=array[tip_strok,tip_stolb] of integer;
var
x:massiv;
summ,k,max,y,mn:integer;
i:tip_strok;
j:tip_stolb;
est:boolean;
begin clrscr;
randomize;
for i:=1 to strok do
for j:=1 to stolb do
x[i,j]:=random(10)-1;
writeln('':2,'-*==MATRIX==*-');
for i:=1 to strok do
begin
writeln;
for j:=1 to stolb do
write(x[i,j]:2,'':2);
writeln;
end;
writeln; writeln;
for i:=1 to strok do
begin
est:=false;
j:=1;
while (j<=stolb) and (not est) do
begin
if x[i,j]<1 then est:=true;
inc(j);
end;
if est then inc(k);
end;
writeln('Chislo strok matricy, imeushih elementi mense edinici-> ',k);
for i:=1 to strok do
if x[i,i]>0 then
summ:=summ+x[i,i];
writeln('Summa polozitelnih elementov glavnoi diagonali-> ',summ);
for i:=1 to strok do
begin
max:=x[i,1];
j:=1;
mn:=1;
for j:=1 to stolb do
if x[i,j]>max then
begin
max:=x[i,j];
mn:=j;
end;
y:=x[i,i];
x[i,i]:=max;
x[i,mn]:=y;
{write(x[i,j])}
end;
writeln('':2,'-*==MATRIX==*-');
for i:=1 to strok do
begin
writeln;
for j:=1 to stolb do
write(x[i,j]:2,'':2);
writeln;
end;
writeln; writeln;
readkey;
end. |
