Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 810 б
- Dwayne_Johnson 800 б
2 апреля 2023 19:08
1151
Заполнить массив случайными числами в интервале [-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.
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.
0
·
Хороший ответ
4 апреля 2023 19:08
Остались вопросы?
Еще вопросы по категории Информатика
1) Что такое кривая Безье? 2)какие режимы построения кривых? 3) Можно ли заменить направление рисунков, нарисованных кривыми линиями? 4) в какие сто...
Информацию, изложенную на доступном для получателя языке называют...
Студент Шурик в поисках дополнительного дохода устроился на работу — разгружать почтовые вагоны. В напарники ему дали Федю — опытного матёрого грузчик...
Какая самая трудная профессия в мире пожалуйста скажите...
Приведите 2-3 примера схем, с которыми вы сталкиваетесь в повседневной жизни. Информационными моделями каких объектов являются эти схемы?...
Все предметы