Составте программу, которая формирует массив из 16 случайных целых…

var a: array [1… 16] of longint; i,k: longint; begin randomize; k: =0; for i: =1 to 16 do begin a[i]: =random (41) -20; if a[i]<0 then k: =k+1; write (a[i],'); end; writeln; writeln (k); end.