Форум
Тема | Автор | Время |
Вопрос жюри | 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. |
Вам небходимо залогиниться в систему, если Вы хотите оставить сообщение в данном форуме.