[Alegun]

Оффтоп:

Да я в курсе :-), спрашивали подобное и раньше, просто хотелось от аффтора такое же услышать, но видно не судьба...

Вот вариант решения первой задачи

Код:

program zadanie1;
uses crt;
var m:array [1..10,1..10] of integer;  {квадратная матрица}
    i,j,b: byte; {индексы матрицы}
begin
clrscr;
randomize; {инициализация генератора случайных чисел}
for i:=1 to 10 do   {цикл заполнения матрицы}
 for j:=1 to 10 do
  begin
   b:= Random(52);
   if b = 0 then b:= 1;
   b:= b - 26;
   m[i,j]:= b;
  end;
clrscr;
writeln('Исходная матрица*');
writeln;
for i:=1 to 10 do {цикл вывода матрицы на экран}
begin
for j:=1 to 10 do
write(m[i,j]: 5);
writeln;
end;

for i:=1 to 10 do   {цикл замены элементов }
 for j:=1 to 10 do
 begin
 {если елемент выше гл диагонали, то присваиваем ему -1}
 if i<j then m[i,j]:= -1;
 end;

writeln('Измененная матрица*');
writeln;
for i:=1 to 10 do  {цикл вывода матрицы на экран}
begin
for j:=1 to 10 do
write(m[i,j]: 5);
writeln;
end;
readkey;

end.

С консолью не дружу, с тырнету слямзино, ясен перец