1=[4, 8, 15, 16, 23, 42) for n in 1:
print(n)
print (1[ 2:51)
Результатом програми буде запис:
print()
15,16,23,42
15,16,23
15,16
16,23,42
Ответы на вопрос:
const n = 10; //количество чисел, которое нужно сформировать first = -10; //с какого числа должны генерироваться случайные числа second = 15; {по какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)}
var f, g, h: text; i: integer; number: array [1..n] of integer; {массив, в который записываются числа, считанные из файлов}
begin randomize; assign(f, 'f.txt'); //инициализируем файл f assign(g, 'g.txt'); //инициализируем файл g assign(h, 'h.txt'); //инициализируем файл h rewrite(f); //открываем файл f для записи for i: = 1 to n div 2 do write(f, random(abs(first) + abs(second)) + first , ' '); {первую половину чисел записываем в файл f} close(f); //закрываем файл f rewrite(g); //открываем файл g для записи for i: = (n div 2) + 1 to n do write(g, random(abs(first) + abs(second)) + first, ' '); {вторую половину случайно сгенерированных чисел записываем в файл g} close(g); //закрываем файл g reset(f); //открываем файл f для считывания for i: = 1 to n div 2 do read(f, number[i]); {первую половину чисел считываем из файла f в массив} close(f); //закрываем файл f reset(g); //открываем файл g для считывания for i: = (n div 2) + 1 to n do read(g, number[i]); {вторую половину чисел считываем из файла g в массив} close(g); //закрываем файл g rewrite(h); //открываем файл h для записи for i: = 1 to n div 2 do write(h, number[i], ' '); {первую половину считанных чисел из массива записываем в файл h} writeln(h); //перевод на новую строку в файле h for i: = (n div 2) + 1 to n do write(h, number[i], ' '); {вторую половину считанных чисел из массива записываем в файл h} close(h); //закрываем файл hend.
все файлы там же, где находится файл программы.
Популярно: Информатика
-
B1o2o3m426.01.2022 14:36
-
lizochkaegorov28.06.2022 09:10
-
виталька100130.03.2020 06:31
-
гуфиn10.05.2021 00:30
-
Alfa1sames19.02.2022 15:42
-
Шахлинка07.08.2020 19:25
-
sie2708.10.2020 23:06
-
LilyaDolz21.04.2021 06:41
-
0Assistant014.01.2020 07:10
-
PROGamerTV1122.05.2022 23:27