«Типизированные файлы»

[SwAAAte83]

Разработать программу для заполнения типизированного файла целыми числами в следующем порядке: 10 положительных, 10 отрицательных, 10 положительных, 10 отрицательных. Получить новый файл, компоненты которого идут в таком порядке: 5 положительных, 5 отрицательных и т.д.

[Hacker19_90]

Так а в чём проблема?

f : file of integer;
Assign
Read
Close
Seek

Гуглим смотрим!
Ну или задаём нормальные вопросы!

[SwAAAte83]

просто еще не очень научился создавать файлы хотел посмотреть на пример прогорммы

[Hacker19_90]

создавать файлы

Assign (f, filename);
Rewrite (f);
 {Work with file}
Close(f);

[SwAAAte83]

а ввод чисел в файл самому вводить или есть способ вбить их в паскале?

[Hacker19_90]

а ввод чисел в файл самому вводить или есть способ вбить их в паскале?

Assign (f, filename);
Rewrite (f);
      Writeln ('Введите числа в файл');
      for i := 1 to POKA_NENADOEST  do
      begin
           Readln (chislo);
           Write (f, chislo);
      end;
Close(f);

[Vanta11a]

randomize;
d:=-100;
while finish <=4 do
begin
d:=-d;
for i:=1 to 10 do
begin
write(f,random(d));
end;
inc(finish);
end;

Как-то так, на ошибки не проверял.

[Serge_Bliznykov]

Vanta11a, Вы уже извините, но Ваш пример кода к решению задачи отношение имеет очень отдалённое.
Имхо, сначала нужно создать файл, заполнить его по правилу 10 положительных, 10 отрицательных и т.д. А потом ИЗ ЭТОГО файла создать новый, с новым распределением: "5 положительных, 5 отрицательных и т.д. "

[Vanta11a]

Serge_Bliznykov, мой пост относится к

а ввод чисел в файл самому вводить или есть способ вбить их в паскале?

просто еще один вариант, без участия пользователя.

[arrowsf1]

сказка детская 250 рублей
напишу за 20-30 мин. нужно?????????????