Contest.uni-smr.ac.ru :: Programming contests in Samara
Русская версия || English version
Login:
Password:
Forget password?
 example: Bill Gates
 

Forum

ТемаАвтор Время
Задать вопрос жюри tschool14_15 09.02.2014 15:53
Данная программа проходит все наши тесты:
program qwe;
var
n,m,a,b,c,d,i,k:integer;
x:array[1..100000] of int64;
begin
readln(n,m);
b:=0;
d:=0;
for i:=1 to n do
read(x[i]);
for k:=1 to n-1 do
for i:=1 to n-1 do
if x[i]>x[i+1] then
begin
a:=x[i];
x[i]:=x[i+1];
x[i+1]:=a;
end;
for i:=1 to n do
begin
if b<=m then
begin
c:=x[i]-i+1;
if c<=0 then c:=0;
b:=b+c;
end;
if b<=m then d:=d+1;
end;
writeln(d);
readln;
end.

А при связывании с файлами у нас выдаёт ошибку на 1ом тесте:

program qwe;
var
n,m,a,b,c,d,i,k:integer;
f1,f2:text;
x:array[1..100000] of int64;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
readln(f1,n,m);
b:=0;
d:=0;
for i:=1 to n do
read(x[i]);
for k:=1 to n-1 do
for i:=1 to n-1 do
if x[i]>x[i+1] then
begin
a:=x[i];
x[i]:=x[i+1];
x[i+1]:=a;
end;
for i:=1 to n do
begin
if b<=m then
begin
c:=x[i]-i+1;
if c<=0 then c:=0;
b:=b+c;
end;
if b<=m then d:=d+1;
end;
writeln(f2,d);
close(f1);
close(f2);
end.
DK 10.02.2014 17:59
Может быть, надо x[i] тоже из файлов читать?
Возможно при проверке, моё решение засчитывается как не правильное, проверьте пожалуйста okrug14_145 15.11.2014 14:50
var
zv:array [1..1000] of integer;
su:array [1..1000] of integer;
qmas: array [1..100,1..100,1..1000] of integer;
q,n,c,k,r,m,imin,jmin:integer;
sum,min:real;
i,j:integer;
f,f1:text;
begin
assign(f,'input.txt');
reset(f);
while not EOF (f) do
begin
read(f,r,c,m);
for i:=1 to m do
read (f,zv[i],su[i]);
end;
min:=1000;
n:=0;
for i:=1 to r do
begin
for j:=1 to c do
begin
for k:=1 to m do
begin
sum:=sum+abs(i-zv[k])+abs(j-su[k]);
qmas[i,j,k]:=abs(i-zv[k])+abs(j-su[k]);
if k=m then
begin
if sum/m<min then
begin
min:=sum/m;
imin:=i;
jmin:=j;
sum:=0;
end else sum:=0;
end;
end;
end;
end;
for i:=1 to m do if qmas[imin,jmin,i]>n then n:=qmas[imin,jmin,i];
assign(f1,'output.txt');
rewrite(f1);
writeln(f1,n);
writeln(f1,imin);
writeln(f1,jmin);
close(f);
close(f1);
end.


You must be logged in to post messages to this forum.