Contest.uni-smr.ac.ru :: соревнования по программированию
Русская версия || English version
Login:
Password:
Забыли пароль?
 пример поиска: Вася Пупкин
 

Форум

ТемаАвтор Время
Вопрос жюри okrug14_423 15.11.2014 14:49
Программа выдает ошибку компиляции, компилятор выбран правильно, у меня программа работает правильно. В чем проблема?

var n,i,s,min,k : integer;
a:array [1..225] of integer;
b:array [1..225] of integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i]);
for i:=1 to n do
read(f1,b[i]);
close(f1);
min:=1000;
s:=0;
k:=0;
for i:=1 to n do begin
s:=b[i];

for i:=1 to n do
if (a[i]<min) and (i<>s) and (a[i]>k) then begin
min:=a[i];
k:=k+1;
end;
end;
rewrite(f2);
write(f2,min*k);
close(f2);
end.




Вам небходимо залогиниться в систему, если Вы хотите оставить сообщение в данном форуме.