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

program rand; var a: array[0… 15] of integer; i,c: integer; begin Randomize; for i: =0 to 15 do a[i]: =random (-20,20); for i: =0 to 15 do if (a[i] < 0) then inc (c); writeln (c ,' отрицательных чисел'); readln; end.