/*Никаких проверок на то что файл не открылся, сломался, удалился и тд. я не делал,
если вам надо - реализуете самостоятельно.*/
#include <iostream>
#include <fstream>
#include <ctime>
int main() {
std::ofstream fin;
std::ifstream fout;
srand(time(NULL));
int N;
std::cin >> N;
int* buff = new int[N];
fin.open("f.txt");
for (int i = 0; i < N; i++) {
fin << rand() % 10 << " ";
}
fin.close();
fout.open("f.txt");
for (int i = 0; i < N; i++)
fout >> buff[i];
fout.close();
fin.open("g.txt");
for (int i = 0; i < N - 1; i++)
fin << buff[i] * buff[i + 1] << " ";
fin.close();
return 0;
}
паскаль не задаёт значения косинусных вещественных значений