Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным...

Question

Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным образом в диапазоне от - 13 до 13

Answer 1

Program chik;
var a,k,i:integer;
begin
k:=0;
for i:=1 to 14 do
begin
a:=trunc((13-(-13))*random-13);
if(a<0)then k:=k+1;<br>end;
writeln(k);
end.