Заполните два массива 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.