Question

Var n,x,i,s:integer; input,output:text; a:array [1..10] of integer; begin s:=0; assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (input,n); for i:=1 to n do begin read(input,a[i],x); if a[i]=1 then s:=s+x; end; write(output,s); close(input); close (output); end. Когда скинула на проверку, написали, что Программа выполнила недопустимую операцию. Найдите ошибку, пожалуйста.

Answer 1

Компиляцию твоя программа проходит успешно.