Задание:
Создать массив случайных чисел Y[1… 10,1… 10]. Все элементы массива, расположенные ниже главной диагоналисделать равными -1.
Решение:
var Y: array [1… 10,1… 10] of integer; i,j: integer; beginrandomize; for i: =1 to 10 do beginfor j: =1 to 10 do beginY[i,j]: =random (100); end; end; for i: =1 to 10 do beginfor j: =1 to 10 do beginif (j < i) then Y[i,j]: =-1; end; end; end. Извиняюсь, что столько раз исправлял — просто паскаль уже не помню)
Знаете другой ответ?