Var
n: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
n[i]:=random(31)-20;
writeln('n[', i, '] = ', n[i]);
end;
for i:=1 to 12 do
if n[i]<0 then write(i, ' ');
<span>end.</span>
256 (10) = 100 (16)
400 (10) = 190 (16)
1234 (10) = 4D2 (16)
2012 (10) = 7DC (16)
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := MatrRandom(3, 3, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
var s := 0;
for var i := 0 to 2 do s += a[i, i];
Println('Сумма элементов главной диагнонали:', s)
end.
<h2> 16 19 97</h2><h2> 11 -97 14</h2><h2> 24 40 -38</h2><h2>------------</h2><h2>Сумма элементов главной диагнонали: -119 </h2>