alatest2.pas

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

program pizdy;
var v,u,t:array[1..30] of integer;
    n,i,x,j,k:integer;
begin
write('n=');
readln(n);
write('x=');
readln(x);
for i:=1 to n do
    begin
    write('v[',i,']=');
    readln(v[i]);
    end;
for i:=1 to n do
    if v[i]<x then begin
                   inc(k);
                   u[k]:=v[i];
                   end
              else begin
                   inc(j);
                   t[j]:=v[i];
                   end;
write('Sirul de nr mai mici ca ',x,':');
for i:=1 to k do write(u[i],' ');
writeln;
write('Sirul de nr mai mari sau egale cu ',x,':');
for i:=1 to j do write(t[i],' ');
writeln;
end.