Question

Помогите срочно с информатикой!!!

Answer 1

var i,k,n: integer;
    f,fo: text;
begin
  assign(f,'in.txt');
  reset(f);
  assign(fo,'out.txt');
  rewrite(fo);
  n:=0; 
  for i:=1 to 5 do
  begin
    read(f,k);
    if k<0 then n:=n+1;
  end;
  writeln(fo,n);
  close(f);
  close(fo);
end.
  

Answer 2

Program1.pas(1) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

Answer 3

Program1.pas(1) : Ошибка времени выполнения: Файл 'C:PABCWork.NETin.txt' не найден.

Answer 4

Ошибка, что файл не найден?

Answer 5

++

Answer 6

Файл in.txt должен находиться в том же каталоге, что и программа, иначе в assign(f,'in.txt') указывайте полный путь для файла in.txt, например 'c:dirin.txt'