Написать программу, которая подсчитывает количество положительных и отрицательных...

Question

Написать программу, которая подсчитывает количество положительных и отрицательных элементов файла целых чисел des.dat. Pascal ABC

Answer 1

Var

f: File of Integer;

i,n,k: Byte;

x: Integer;

BEGIN

Assign(f,'1.dat');

Rewrite(f);

Write('Сколько чисел ввести в файл? ');

Readln(n);

k:=0;

Writeln('Введите числа в файл: ');

For i:=1 to n do

begin

Readln(x);

If x>0 Then k:=k+1;

Write(f,x);

end;

Clrscr;

If k>0 Then

Write(f,1);

Reset(f);

Writeln('Содержимое файла: ');

While not Eof(f) do

begin

Read(f,x);

Write(x,' ');

end;

Close(f);

END

разберись с К> и все заработает как часики.