заполнить файл целыми числами из отрезка [—100; 100] с помощью датчика случайных чисел.

[ALEX-7-7-7]

ПожаЛуйСтА Помогите люди добрые!!
Моей девушке нужно решить задания до конца недели ((!
Помогите пожалуйста!!!!!!!!!
Вот эти задания и пожалуйста если можно объясните код заранее благодарю за помощь!!!:

1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже, program example_file_7;
var fl, f2: file of integer;
s, n: integer;
st: string; begin
write ('имя файла? '); readln(st);
assign(fl, st); i
write ('имя файла? '); readln(st);
assign(f2, st) ;
reset (fl); rewrite (f2);
s := 0;
while not eof (fl) do
begin read(fl, n); write(f2, n); s := s + n end;
write(f2, s);
close (fl); close (f2)
end.
2. Решить задачу: заполнить файл целыми числами из отрезка [—100; 100] с помощью датчика случайных чисел. Переписать в один из новых файлов четные положительные компоненты исходного файла с указанием их количества, а в другой — нечетные отрицательные компоненты с указанием их количества.
3. Решить задачу: Сведения о результатах сессии студентов второго курса (фамилия, номер группы и | оценки по трем экзаменам) хранятся в файле:
type stud = record j
fam: string[12]; num: 121..126; otml, otm2, otm3: 2..5; end;
var kurs: file of stud; Написать программу, которая вводит эту информацию и печатает номера групп в порядке увеличения j средней успеваемости их студентов.
4. Решить задачу: удалить из файла, содержащего целые числа, те компоненты, которые располагаются между к-м и s-м компонентами (k < s). Дополнительных файлов и массивов не использовать.
5. Решить задачу: разработать модуль для работы с натуральными числами. Реализовать операции вычисления количества цифр числа, произведения четных цифр числа, нахождения количества делителей числа. Используя модуль, переписать из данного файла в другой те числа, количество делителей которых больше заданного К.

[ALEX-7-7-7]

Написал вродебы код второй программы но чтото в ней не то либо лишнего много( и счетчика нету помогите исправить пожалуйста!
Вот код :

var
h1,h2:text;
a,i:real;
BEGIN

assign(h1,'1.txt'); {cоздание файла 1}
rewrite(h1);
a:=0.5;
i:=-100;
while i<=100 do
begin
writeln(h1,i:4:1);
i:=i+a;
end;
close(h1);
writeln;

reset(h1);
assign(h2,'2.txt');
rewrite(h2);
while not eof(h1) do
begin
readln(h1,i); {считать из файла h1 число i if (trunc(i)mod 2)=0 then writeln(h2,i:4:1)если целая часть числа trunc(i) }
{делится на 2 и остаток от деления равен 0, тогда записать число i в файл h2 }
end;
close(h1);
writeln('Чтобы вывести все положительные элементы исходного файла нажмите Enter ');
readln;
reset(h1);
while not eof(h1) do
begin
readln(h1,i);
write(' ',i:4:1);
end;
close(h1);
writeln;
writeln('Чтобы вывести отрицательные элементы исходного файла нажмите Enter ');
readln;
reset(h1);
while not eof(h1) do
begin
readln(h1,i);
if i<0 then write(' ',i:4:1);
end;
END.

[Sazary]

Первая как-то так:
"Имея типизированный файл с целыми числами создать второй файл, переписав в него числа из первого файла и дописав в конец сумму этих чисел."

Вторая:

uses crt;
var
f1,f2,f3 : text;
chcnt,nchcnt : integer;
i,k : integer;

begin
clrscr;
randomize;
assign(f1,'1.txt');
rewrite(f1);

for i:=1 to 30 do
 begin
 k := random(201)-100;
 write(f1,k,' ');
 end;
close(f1);

assign(f2,'2.txt');
assign(f3,'3.txt');
rewrite(f2);
rewrite(f3);

reset(f1);
chcnt := 0; // количетсво четных положительных
nchcnt := 0; // количество нечетных отрицательных

while not eof(f1) do
 begin
 read(f1,k);
 if (k>0) and (k mod 2=0) then
  begin
  inc(chcnt);
  write(f2,k,' ');
  end;
 if (k<0) and (k mod 2<>0) then
  begin
  inc(nchcnt);
  write(f3,k,' ');
  end;
 end;

writeln(f2);
writeln(f3);

write(f2,'Vsego chetnyh polozhitelnyh: ',chcnt);
write(f3,'Vsego nechetnyh otricatelnyh: ',nchcnt);

close(f1);
close(f2);
close(f3);

readln;
end.

-------------
Код заключайте в тег CODE ("#" на панели в окне редактирования).

Продолжайте.

[ALEX-7-7-7]

Sazary помоги плиз решить остальные задачи а товремя уже поджимает завтра сдавать( Пожалуйста

[Sazary]

ALEX-7-7-7, решать за вас я не буду. Если вам так не хочется делать самостоятельно, есть фриланс.
Не нужно было затягивать, тогда и время бы не поджимало.

Задавайте конкретные вопросы.