Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
2 апреля 2023 01:05
1002
Заполнить массив случайными числами в интервале [-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
Остались вопросы?
Еще вопросы по категории Информатика
Юра сказал маме: "Хочу яблоко". Она принесла ему очищенное яблоко. На другой день Юре подарили робота. Он опять сказал: "хочу яблоко". Но робот не сдв...
Методы взлома. Описание каждого взлома....
10.Найдите во Всемирной паутине информацию о количестве пользователей самых распространенных поисковых систем? 11. Даны запросы к поисковой системе:...
Текстовый документ, состоящий из нескольких страниц, занимает на жёстком диске 84 Кбайт. На 1-ой страницу документа 48 строк по 64 символа в строке. К...
В общем случае столбцы электронной таблицы: 1. обозначается буквами латинского алфавита 2. нумеруется 3. обозначается буквами русского алфавита 4....
Все предметы 
