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

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;<br>  end;
  writeln(fo,n);
  close(f);
  close(fo);
end.
  

Comments

Это не правильно

---

Это кто это Вам сказал, что не правильно?

---

Количество отрицательных чисел записывается в файл out.txt

---

Паскаль ошибку выдает

---

Какую ошибку?

---

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

---

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

---

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

---

++

---

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