Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var input, output:text;
- var m:integer;
- var a:array[1..99] of integer;
- begin
- assign(input, 'input.txt');
- assign(output, 'output.txt');
- rewrite(output);
- reset(input);
- read(input, m);
- readln(input, a[1]);
- for var i:= 2 to m do
- begin
- read(input, a[i]); {ошибка здесь}
- end;
- for var i:= 1 to 1 do
- begin
- write(output, a[i],' ');
- end;
- close(input);
- close(output);
- end.
- {Вот что в input.txt
- 8
- 2 1 4 5 6 7 8 9}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement