rovect1.pas

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

program vector1;
var v:array[1..100] of integer;
    n,i,s,p:integer;
begin
s:=0;
p:=0;
write('n=');readln(n);
for i:=1 to n do
     begin
     write ('v[',i,']=');readln(v[i]);
     end;
for i:=n downto 1 do
    write(v[i],' ');
for i:=1 to n do
              begin
              if v[i]>0 then s:=s+v[i];
              if v[i]mod 5 =0 then p:=p+1;
              end;
write('s=',s);
write('p=',p);
readln;
end.