DSC00480

iMebda *<■ -

bva£JL >syrQj⁰⁰ k£X v i^_A l\j lyOACJ \<rSko- ( CbL&t^z^cclr

-.    U n    4 n- »

*YWOl£pfe*'£ .

NO^isx s^YOC^a.'wi J

so-zko* dć**iii/.

program bąbelek; uses crt; const

suxroz-100;

var

zalanarboolean;

nrbyte; frozaiar tablicy)

i:byte; (zaienna kontrolna pętli)

pom.-intcgcr; (zaienna do zaaiany eleaentow)

a:array[l..«axroz)of integer;

begin

clrscr:

write(*podaj rozaiar tablicy n- ’); readln(n);

r.ihliruM’

f\C OC ^lC-'A05aA^v1 UrJiA A -Y^oiz/yC/tt

*4* tor '>vu^/vu'Hial

^,r^'V^vuC'>H'-łrnu^ ć) 3 ofC{ oWćJ» £

oa    'ł Jlho e^'W>2'vii

writelnC podaj elementy tablicy’);

for i:-l to n do

read(a[i]);

zwiana:=true;

while zaiana do

begin

zmiana:°false;

for i:-l to n-1 do

if a[i)>a(i+l] then

begin

poa:=a[i);

ari):-a[Ul];

a[i+l]:-poa;

ZHiana:»crue;

end;

end;

writelnC uporządkowana tablica to

for i:-l to n do

writeln(a[il:3);

repeat until keypressed;

end.

lip-10 15:10