Нужно решение) кто способен? Вопрос 1. На одномернный массив, вывести его в…

Const n=10; var a: array[1… n] of integer; i,j,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random (20)+1; write (a[i]: 3); end; writeln; for i: =1 to n-1 do for j: =i+1 to n do if a[i]