rovect4.pas

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

program vectir4;
var
v,v1,v2,v3: array [1..100] of integer;
    i,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write ('v[',i,']=');readln (v[i]);
end;
for i:=1 to n do
              begin
              if v[i] mod 3 =0 then writeln('v1[',i,']=',v[i]);
              if v[i] mod 3 =1 then writeln('v2[',i,']=',v[i]);
              if v[i] mod 3 =2 then writeln('v3[',i,']=',v[i]);
              end;
readln;
end.