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

Question

Информатика

Доримедонт

3 февраля, 02:13

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

+2

Ответы (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.