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

1

Ответы и объяснения

2013-03-15T22:09:16+04:00

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.

 

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