1) Даны описания:
type str = string[12];
Exzam = (Matem,Inform,Ximi);
Student = record
FIO: record F,I,O: STR
end;
GR: 1..3;
OTM: array[Exzam] of 2..5
end;
Обработав сведения исходного файла (15 - 20 данных), следует в новый файл помесить номер группы, фамилию, инициалы студентов, не сдавших экзамены и их количество.
2)
Написать программу,которая создает в текущей папке магнитного диска два текстовых файла File 1.txt и File2.txt
В первый файл должны быть записаны в произвольном порядке 25 положительных целых чисел,не привосходящих по своей величине 200. Во второй должны быть записаны в произвольном порядке 20 положительных чисел,так же не превосходящих по своей величине 200.