program pg;

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

b,c,d,i:longint;

begin

fillchar (a,sizeaf(a),0);d:=0;

for i:=1 to 10 do a[i]:=0;

for b:=1 to 10 do read(a);

readln;

read(c);

for b:=1 to 10 do

if a

File Edit Search Run Compile Debug Tools Options Window Help 08:32:51

╔═[■]════════════════════════════ noname02.pas ══════════════════════════1═[↕]═╗

║ ▲

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▓

║ ▼

╚══*════ 1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘

F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu

var

d:array[0..1000] of integer;

a,b,s,j,m,i:integer;

begin

readln(l,m);

for i:= 0 to l do d[i]:=1;

for i:= 1 to m do begin

readln(a,b);for j:= a to b do

d[j] :=0;

end;

for i:= 0 to l do

s:=s+d[i];writeln(s);

end.

program jinjin;

var i,d,a,b,s:integer;

begin

for i:=1 to 7 do

begin

readln(a,b);

if (a+b>8) and (a+b-8>s) then

begin

s:=a+b-8;

d:=i;

end;

end;

writeln(d);

end.

program apple;

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

　　i,n,total:integer;

begin

total:=0;

for i:=1 to 10 do

read(a[i]);

readln(n);

for i:=1 to 10 do

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

writeln(total);

end.

定义一个数组，用for语句读入，在判断就行了。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

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

　　i,n,total:integer;

begin

total:=0;

for i:=1 to 10 do

read(a[i]);

readln(n);

for i:=1 to 10 do

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

writeln(total);

end.

program apple;

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

i,n,total:integer;

begin

total:=0;

for i:=1 to 10 do

read(a[i]);

readln(n);

for i:=1 to 10 do

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

writeln(total);

end.

能挤出水来的题目

乍一看,发帖的大多数只有不到一星

program p1;

var

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

n,i,j,h :longint;

begin

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

read(n);

j:=n+30;

h:=0;

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

var

i,x,total:integer;

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

begin

for i:=1 to 10 do

　　read(a[i]);

readln;

readln(x);

total:=0;

for i:=1 to 10 do

　　if a[i]

program ttzpg;

var

a:array[1..10] of 100..200;

b:100..150;

i,n:0..10;

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(b);

inc(b,30);

n:=0;

for i:=1 to 10 do

if a[i]

var

i,x,total:integer;

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

begin

for i:=1 to 10 do

　　read(a[i]);

readln;

readln(x);

total:=0;

for i:=1 to 10 do

　　if a[i]

type

pingguo= array [1..10] of integer;

var

pg:pingguo;

s,i,j,k:integer;

begin

k:=0;

for i:=1 to 10 do

read(pg[i]);

readln;

readln(s);

for j:=1 to 10 do

begin

if pg[j]

var

i,x,total:integer;

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

begin

for i:=1 to 10 do

　　read(a[i]);

readln;

readln(x);

total:=0;

for i:=1 to 10 do

　　if a[i]

program P1102;

var

i,x,total:integer;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

readln(x);

total:=0;

for i:=1 to 10 do

if a[i]

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

b,c,i:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(b);

b:=b+30;

for i:=1 to 10 do

if a[i]

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

i,j,k:integer;

begin

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

readln(k);

k:=k+30;

j:=0;

for i:=1 to 10 do if k>=a[i] then j:=j+1;

writeln(j);

end.

program apple;

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

b,c,i,d: integer;

begin for i:= 1 to 10 do;

read(a[i]);

read(b);

read(d);

d:=d+30;

c:=0;

if d>=30 then c:=c+1;

for d:= 1 to 10 do;

write(c);

end.