roat2.pas

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

var v,v1,v2:array[1..50] of integer;
    n,i,j,k,x:integer;
begin
write('n=');readln(n);
write('x=');readln(x);
for i:=1 to n do begin
                 write('v[',i,']=');
                 readln(v[i]);
                 end;
j:=0;
k:=0;
for i:=1 to n do
    if v[i]<x then begin
                   inc(j);
                   v1[j]:=v[i];
                   end
              else if v[i]>x then begin
                                  inc(k);
                                  v2[k]:=v[i];
                                  end;
writeln('nr mai mici decat ',x,' sunt');
for i:=1 to j do write(v1[i],' ');
writeln;
writeln('nr mai mari decat ',x ,' sunt ');
for i:=1 to k do write (v2[i],' ');
readln;
end.