Помогите бедному студенту решить 5 задач (Turbo Pascal 7.0).

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Помогите бедному студенту решить 5 задач (Turbo Pascal 7.0)., 5 задач

Опции

Ветас	20.12.2007 3:07 Сообщение #1
Гость	1)Type freal=file of real.Программа выводит на экран все элементы первого файла типа freal,меньше наименьшего элемента второго файла. 2)Дано:x,z:set of 7..24.Присвоить переменной х множество всех чисел,кратных 2,а у переменной z множество всех действительных чисел. 3)Преобразовать исходную последовательность удаливиз нее все нулевые элементы. 4)Дано:type vrema=record cas:0..23;min,sec:0..59;end;var t1,t2:vrema.Программа вводит переменную t1 и присваивает переменной t2 значение на 1с больше чем у первой. 5)Дано:Var T:array[1..6,1..8] of integer;D array [1..6] of boolean.Если в матрице Т строка К симметрична то присвоить К-му элементу логическ. массива D значение true иначе false.[font=Times New Roman]