Заполнить массив случайными числами в интервале [2; -2] и подсчитать количество…

Паскаль____________uses crt; varmin,k, i , n: integer; m: array [1… 100] of integer; beginrandomize; n: =5; for i: =1 to n dom[i]: =random (5) -2; for i: =1 to n dowrite (m[i],'); for i: =1 to n doif m[i]>0 then k: =k+1; writeln; writeln (k); readkey; end.