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

@awde · Регистрация: 25.04.2011

Студворк — интернет-сервис помощи студентам

Помогите решить задачи с файлами.
1)Дан файл чисел. Записать в другой файл максимум из первых десяти элементов, затем максимум из следующих десяти элементов и т.д.
2)Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии,имена и подсчитать общее число жителей, родившихся в 1990г.
3)Дан текстовый файл. Записать во второй файл в алфавитном порядке все слова из исходного файла, имеющие заданную длину n.

@Puporev · 15.05.2011, 19:15

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
var f,g:file of integer;
    a,i,j,n,mx:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
for i:=1 to 50 do
 begin
  a:=random(100);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
  if i mod 10=9 then writeln;
 end;
close(f);
writeln;
write('Нажмите Enter');
readln;
reset(f);
n:=filesize(f) div 10;
for i:=0 to n-1 do
 begin
  j:=10*i;
  seek(f,j);
  read(f,mx);
  while(j<10*i+9)and(j<filesize(f)-1)do
   begin
    j:=j+1;
    seek(f,j);
    read(f,a);
    if a>mx then mx:=a;
   end;
  write(g,mx);
 end;
close(g);
writeln('Содержание файла максимумов:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:4);
 end;
close(g);
readln
end.

@awde · 22.05.2011, 20:57 **[ТС]**

помогите еще с этими 2 задачами. А то не могу понять как сделать их

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .

@awde 1 / 1 / 0 Регистрация: 25.04.2011 Сообщений: 15

	Записать в другой файл максимум из первых десяти элементов 15.05.2011, 19:06. Показов 1230. Ответов 2 Метки нет (Все метки) Помогите решить задачи с файлами. 1)Дан файл чисел. Записать в другой файл максимум из первых десяти элементов, затем максимум из следующих десяти элементов и т.д. 2)Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии,имена и подсчитать общее число жителей, родившихся в 1990г. 3)Дан текстовый файл. Записать во второй файл в алфавитном порядке все слова из исходного файла, имеющие заданную длину n. 0

@awde 1 / 1 / 0 Регистрация: 25.04.2011 Сообщений: 15
	22.05.2011, 20:57 [ТС]
	помогите еще с этими 2 задачами. А то не могу понять как сделать их 0

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

Решение