aranjame.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 43 行

program vector(parele_si_imparele);
{sa se aranjeze elementele unui vector crescator,
mai intai parele si apoi imparele}
var i,j,l,n:integer;
    a,b,c:array [1..20] of integer;
procedure pro;
var i,j,s,k:integer;
begin
for i:=1 to 10 do
    read(a[i]);
k:=9;
      repeat
      s:=1;
      begin
            for i:=1 to k do
                     if a[i]>a[i+1] then
                                        begin
                                             j:=a[i+1];
                                             a[i+1]:=a[i];
                                             a[i]:=j;
                                        end
                                    else s:=0;
            write(a[i],'  ');
            writeln;
            k:=k-1;
            end;
      until k=0;
readln;
end;
begin
for i:=1 to 20 do
    begin
         write('a[',i,']= ');
         readln(a[i]);
    end;
for i:=1 to 20 do
         begin
              if a[i] mod 2=0 then a[i]:=b[j]
              else a[i]:=c[l];
         end;
writeln('numerele pare aranjate crescator sunt: '); pro;
writeln('numerele impare aranjate crescator sunt: '); pro;
end.