Создать массив случайных чисел y[1..10,1..10]. все элементы массива, расположенные ниже главной диагонали сделать равными -1.

var Y: array [1..10,1..10] of integer;

i,j: integer;

begin

randomize;

for i := 1 to 10 do begin

for j := 1 to 10 do begin

Y[i,j] := random(100);

end;

end;

for i := 1 to 10 do begin

for j := 1 to 10 do begin

if (j < i) then Y[i,j] := -1;

end;

end;

end.

Извиняюсь, что столько раз исправлял - просто паскаль уже не помню ))