Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов
Заполнить массив случайными числами в интервале [-1,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.
Не нашли ответ?
Похожие вопросы