题解 - Vijos

0
zhangyunyi LV 8 @ 2009-05-24 14:26:40

program ex;

var i,n,s:integer;

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

begin

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

read(n);

n:=n+30;

for i:=1 to 10 do if a[i]
0
Kino LV 6 @ 2009-05-22 19:42:39

#include

#include

main()

{

int h,temp,i=0;

int a[10];

for(i=0;i
0
yinguohang LV 4 @ 2009-05-17 10:57:21

var

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

s,n:longint;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

s:=0;

for i:=1 to 10 do

if (a[i]>n)or(z[i]
0
hp513881045 LV 6 @ 2009-05-16 11:13:07

program hp;

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

g,h,i:integer;

begin

for i:=1 to 10 do

read(a[i] );

readln(g);

h:=0;

g:=g+30;

for i:=1 to 10 do

if a[i]
0
ccshd96 LV 4 @ 2009-05-16 09:15:09

#include

using namespace std;

int main()

{

int apple[10],h,i,b;

for(i=0;i>apple);

cin>>h,h+=30;

for(i=b=0;i
0
gdsgsunny LV 7 @ 2009-05-13 14:52:32

program sunny;

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

i,n,s:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

s:=0;

for i:=1 to 10 do

if a[i]
0
5icomputer LV 4 @ 2009-05-13 11:00:18

var

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

l,i,j,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

read(l);

for i:=1 to 10 do

if l+30>=a[i] then inc(s);

writeln(s);

end.
0
52735273 LV 8 @ 2009-05-10 09:29:18

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.
0
zhujianxin LV 7 @ 2009-04-23 13:45:59

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

b,i,s:integer;

begin

s:=0;

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

readln;

readln(b);

for i:=1 to 10 do

if a[i]
0
sjj1990 LV 3 @ 2009-04-15 18:14:55

program x;

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

　　i,l,s:integer;

begin

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

readln;

readln(l);

l:=l+30;

for i:=1 to 10 do if a[i]
0
1995zz LV 5 @ 2009-04-13 20:04:45

program x;

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

i,l,s:integer;

begin

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

readln;

readln(l);

l:=l+30;

for i:=1 to 10 do if a[i]
0
qa74ws85 LV 4 @ 2009-04-13 19:38:17

program sf;

var i,h,n:integer;

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

begin

n:=0;

for i:= 1 to 10 do

read(a[i]); readln;

read(h);

for i:=1 to 10 do

if a[i]
0
s447678256 LV 6 @ 2009-04-12 10:35:55

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

q,b,i,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

readln;

readln(b);

q:=b+30;

for i:=1 to 10 do

if a[i]
0
44768256 LV 8 @ 2009-05-05 18:05:33

hn
0
laiqidong LV 9 @ 2009-04-08 15:04:44

program lt;

var a:array[1..10] of longint;

b,c,d:longint;

begin

for b:=1 to 10 do

readln(a[i]);

readln(c);d:=0;

for b:=1 to 10 do

if c+30>=a[i] then d:=d+1;

writeln(d);

end.
0
abbababab LV 8 @ 2009-04-07 08:51:40

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.
0
jrc1995 LV 4 @ 2009-04-06 14:06:34

var

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

b,num,i:integer;

begin

num:=0;

for i:=1 to 10 do

read(a[i]);

readln(b);

begin

for i:= 1 to n do

if (b+30)>=a[i]

then num:=num+1;

end;

write('num=',num);

end.
0
zhujunhao LV 8 @ 2009-04-05 13:30:38

program zhjh(input,output);

var

i,n,s:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then

s:=s+1;

writeln(s);

end.
0
slm LV 5 @ 2009-04-02 10:19:28

program apple;

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]
0
Fantasy0_o LV 4 @ 2009-03-12 11:35:16

program apple;

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]