Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 01:05
1248
Заполнить массив случайными числами в интервале [-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
Остались вопросы?
Еще вопросы по категории Информатика
В таблице приведена стоимость перевозок между пятью железнодорожными станциями, обозначенными буквами A, B, C, D и E. Укажите схему, соответствующую т...
Как называется устройство для объединения сетей, использующих разные протоколы ?...
Задача 1. Ввести 5 элементов списка. И вывести те из них, которые меньше введенного числа. Задача 2. Найти наименьшее положительное число в списке. My...
Дан одномерный массив а из семи элементов 25 24 10 60 4 100 -11...
Дан код программы. Напишите результат этого кода a=int(5) b=int(2) print (int(a/b)) Даны переменные а=7 и b=2 напишите программу результатом которой б...
Все предметы 
