Помогите пожалуйста нп завтро надо срочно найдите количество положительных и количество отрицательных элементов массива из 8 целвх чисел. Заранее СПАСИБО

// PascalABC.NET 3.3begin  var a:=ArrRandom(8,-30,30); a.Println;  writeln('Положительных: ',a.Where(x->x>0).Count);  writeln('Отрицательных: ',a.Where(x->x<0).Count);end.Пример:19 17 -1 21 -23 -13 20 24Положительных: 5Отрицательных: 3

Program n1;var a: array[1..8] of integer;ko,kp,i: integer;beginwrite('массив: ');ko:=0;kp:=0;for i:=1 to 8 dobegina[i]:=random(21)-10;write(a[i],' ');if a[i]>0 then kp:=kp+1;if a[i]<0 then ko:=ko+1;end;writeln;writeln('количество отрицательных: ',ko);write('количество положительных: ',kp);end.