Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов

Question

Информатика

Кикилия

25 апреля, 21:09

Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов

+4

Ответы (1)

Знаете ответ на вопрос?

Мелания · Answer 1

Var

i, a:integer;

m:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

begin

m[i]:=random (2) - 1;

if m[i]=0 then a:=a+1;

end;

writeln (a) ;

end.