Создать массив случайных чисел 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.   Извиняюсь, что столько раз исправлял - просто паскаль уже не помню ))