er - Vijos

陶陶摘苹果
tym1 LV 6 @ 2009-10-31 10:22:24

program apple;

var

a:array[1..10] of integer;

n,i,total:integer;

begin

for i:=1 to 10 do read(a[i]);

readln(n);

n:=n+30;

for i:=1 to 10 do

if n>=a[i] then inc(total);

writeln(total);

end.

赫敏·格兰杰 LV 10 @ 2009-10-31 17:59:21

total没赋初值......
ccw630 LV 10 @ 2009-10-31 10:46:37

var

h,i,j,s:integer;

a:array[1..10]of integer;

begin

j:=0;

for i:=1 to 10 do

begin

read(s);

a[i]:=s;

end;

readln;

read(s);

for i:=1 to 10 do

if a[i]
liuzj9436 LV 8 @ 2009-10-31 10:29:48

var

l:array[1..10] of longint;

h,i,t:longint;

begin

for i:=1 to 10 do read(l[i]);

readln(h);

h:=h+30;

for i:=1 to 10 do if l[i]