1. type серія = file of real;
Описати функцію отриц (s), що підраховує суму від’ємних елементів в серії s.
2. type FB = file of boolean;
Описати процедуру присв(f,g) від двох файлів типу FB, яка файлу f присвоює вміст файлу g.
3. type letters = file of ‘a’..’z’;
Описати процедуру append(f,g,h) від трьох фалів типу letters, яка записує в файл f спочатку всі елементи файлу g, а потім – всі елементи файлу h.
4. type текст = file of char;
Описати логічну функцію eq(t1,t2), яка перевіряє тексти t1 та t2 на рівність.
5. type ціна = record грн:0..maxint; коп:0..99 end;
прейскурант = file of ціна;
Описати процедуру min(П,Ц), що присвоює параметру Ц найменьшу ціну з непорожнього прейскуранту П.
6. type час = record години:0..23; хвилини, хвильки:0..59 end;
ФВ = file of час;
Описати логічну функцію eq(f,g), яка перевіряє на рівність файли f та g типу ФВ.
7. type reals = file of real;
Описати функцію less(f) від непорожнього файлу f типу reals, що підраховує кількість елементів файлу f, меньших за середнє арифметичне всих елементів цього файлу.
8. type FR = file of real;
Описати логічну функцію mid(f,m), яка визначає, чи довжина файлу f типу FR – неперне число, та, якщо це так, присвоює параметру m середній елемент цього файлу.
9. Описати процедуру line40(t), яка зчитує з вихідного файлу літери до першої крапки та записує їх (без крапки) в текстовий файл t, формуя в ньому рядки по 40 літер (в останньому рядку літер може бути меньше).
10. type FR = file of real;
Описати функцію incr(f), що визначає кількість елементів в найбільш довшій зростаючій послідовності файлу f.
Додаток 7