Дан файл f компоненты которого действительные числа.найти сумму компонентов файла.результат поместить в файл g. дан файл f компоненты которого являются целыми числамию найти наибольший и наименьший из компонентов файла.результат поместить в файл g дан файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g дан файл f компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f дан файл f компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.

так как неуказан язык программирования пишу алгоритм

1)открываем поток для чтения файла f , нам еще потребуется переменная назовем ее count (тип дробных чисел в каждом языке по разному) и переменную допустим value (тоже дробное) далее проход по файлу любым циклом до конца файла и условие если value = дробь то count   = count +1 и в конце выводим count в файл g

2)открываем поток для чтения файла f , и две переменные max и min и массив кол-во элементов которого равно кол-ву чисел в файле (считаем любой функцией ) далее сортируем массив по возрастанию и получиться max = последний элемент массива ;

min = первый элемент массива . далее выводим min и max в файл g

3)аналогично 4 только вместо записи их в массив просто задаете переменную которая будет увеличиваться если число четное . 

 

4)открываем поток для чтения файла f , потребуется массив равный кол-ву четных элементов файла на четность можно проверить если остаток от деления числа на 2 =0 то

число четное , далее просто заполняем массив из файла четными точно такой же проверкой и выводим в файл g . но еще лучше использовать динамический массив тогда проход по файлу будет равен 1 

5)все просто открываешь первый файл для чтение считаешь кол-во элементов , 

создаешь массив, кол-во элементов которого = твой подсчет , заполняешь его из файла ,далее соритруешь по возрастанию , и выводишь этот массив в файл 2 , опять же можешь использовать динамические массивы и облегчить себе жизнь

№1 var sum, i: integer; begin sum : = 0; for i : = 1 to 100 do sum : = sum + i; writeln('сумма всех чисел от 1 до 100: ', sum); end.№2var p, i: integer; beginp : = 1; for i : = 1 to 10 do p : = p * i; writeln('произведение всех чисел от 1 до 10: ', p); end.№3у вас не дано никаких условий. вот для условия: "членов прогрессии -  100, шаг - 3"var a, i, k, max: integer; begini : = 3; max : = 100; for k : = 1 to max do begina : = a + i; write( a, ' '); end; end.№4var sum, x: real; a: array[1..10] of real; i: integer; beginsum : = 0; for i : = 1 to 10 do beginwrite('введите ', i, ' число: '); readln(a[i]); sum : = sum + a[i]; end; writeln('сумма введенных чисел: ', sum); end.