Помогите а?
8.9. type ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
var год: array [1..365] of ДеньНедели;
Присвоить каждому элементу год[i] название того дня недели, на который
приходится i-й по счету день невисокосного года, если известно, что 1
января - среда (год[1] := ср; год[2] := чт; и т.д.).
9.30.
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.
Есть код к первой проге...но не могу понять в чем ошибка, ко второй проге тока тупо создан массив, на то фто делать дальше слегка не хватает серого вещества...