Метод пузырька (Документ Microsoft Word)

Посмотреть архив целиком

program Project2;



{$APPTYPE CONSOLE}



uses

SysUtils;

type B_arr=array [1..m,1..n] of integer;

A_arr=array [1..2m] of integer;

var ni, mi, i, j: integer;

k;imax,imin; integer;

a:B_arr;

b:A_arr;

begin

randomize

repeat

write ('2<=m<=8, 2<=n<9');

read(mj; nj);

until ((2<=mi<=8)an(2<=ni<=9));

for i=1 to n do

for j=1 to m do

a[i,j]:=random(10)-6;

for i:=1 to n do

begin

for j:=1 to m do

writ (a[i;j]);

writeln;

end;

for i:=1 to n do

begin

k:=0;

for j:=1 to m do

if a[i;j]<0

then k:=k+1;

end;

max:=b[1]; imax:=1;

min:=b[1]; imin:=1;

for i:=2to n do

if b[i]

begin

min:=b[i];

imin:=i;

end;

if b[i]>max then

begin

max:=b[i];

imax:=i

end;

{a iiao? no?ieo ia?aoiaei}

for i:=1 to m do

begin

b[i]:=a[imin,i];

b[i+m]:=a[imax,i];

end;

writeln('Puz<');

k:=0;

for i:=1 to n do

for j:=n downto i+1 do begin

if a[j-1]

temp:=a[j-1];

a[j-1]:=temp;

for j1:=1 to n do

write (a[j1]:3);

writeln(' i=',i, ' j=',j:2);

k:=k+1

end;

end;

for i:=1 to n do

write( a[i]:3);

writeln( 'k=', k);

writeln;

end.


Случайные файлы

Файл
142996.rtf
23193.rtf
26952-1.rtf
97373.rtf
11917.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.