Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 01:05
1053
Заполнить массив случайными числами в интервале [-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 01:05
Остались вопросы?
Еще вопросы по категории Информатика
Найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. НА C++...
На рисунке изображена схема дорог,связывающих торговые точки А,Б,В,Г,Д,Е,К.По каждой дороге можно двигаться только в направлении,указанном стрелкой.Ск...
Студент работая с функцией F=(w'n z) V(x'n y) V-x, начал заполнения таблицы истинности, но успел заполнить её до конца остался лишь фрагмент из трёх р...
Заполните таблицу степеней числа 2. Пропустила эту тему (((...
Друзья решили зашифровать сообщения из английских букв, записывая вместо каждой буквы её номер в алфави- те (без пробелов). Номера букв даны в таблиц...
Все предметы 
