Заполните два массива N [1..15] и M [1..15] случайными числами в диапозоне от -15 до 20ю Подсчитайте в каждом ммассиве количество положительных и отрицательных значений. Программа должна быть на Pascale, желательно на завтра.

Program pr; uses crt; Var N,M:array[1..15] of integer;     i,kNp,kMp,kNo,kMo:integer; Begin kNp:=0; kMp:=0; kNo:=0; kMo:=0; Writeln('mas(N)'); for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end; Writeln; Writeln('mas(M)'); for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end; for i:=1 to 15 do Begin                   if N[i]>=0 then kNp:=kNp+1                              else kNo:=kNo+1;                   if M[i]>=0 then kMp:=kMp+1                              else kMo:=kMo+1;                   end; Writeln; Writeln('Кол-во положительных массива N=',kNp); Writeln('Кол-во отрицательных массива N=',kNo); Writeln('Кол-во положительных массива M=',kMp); Writeln('Кол-во отрицательных массива M=',kMo); readln; end.