Матрица Опции

[CeMeH]

Помогите, оч. нужно

Дана квадратная матрица А порядка n. Получить матрицу АВ; элементы матрицы В вычисляются по формуле:

*******1/(i+j-1), если i<j
b[i,j] = 0 , если i=j
*******1/(i+j+1), если i>j
фигурная скобка на три строки после знака равно(=)

Спасибо за хоть какую-нибудь помощь!!

Сообщение отредактировано: CeMeH - 26.01.2010 16:21

[sheka]

Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.

Лично я вообще не вкурил задания.
наверное имеется ввиду такая процедура:
Ничего не компилирую, пишу с головы.
procedure proc(var c:char);

begin
if c in ['A'..'Z'] then c:=char(odd©+32)
end;

т.е. если входит символ или маленькая буква, то он и остается, а если входит большая буква - то переводится в маленькую..