Дан массив. Вывести на экран сначала его неотрицательные элементы,…

Var m: array[1… 100] of integer; i,n: integer; begin write ('Введите размерность массива: '); readln (n); writeln ('Введите массив: ') for i: =1 to N doreadln (m[i]); writeln ('Массив: '); for i: =1 to N doif M[i]>0 then write (M[i],'); for i: =1 to N doif M[i]<0 then write (M[i],'); end.