Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 01:05
1251
Заполнить массив случайными числами в интервале [-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
Остались вопросы?
Еще вопросы по категории Информатика
Кого считают изобретателем W W W и когда это произошло...
Дано натуральное число n. Напечатайте все n-значные нечетные натуральные числа в порядке убывания. Входные данные Вводится натуральное число. Выход...
Условие Роман Андреевич занимается коллекционированием древних артефактов, и каждый год он добавляет что-то новое в свою коллекцию. За последние 20 л...
Программист Петя пишет сортировку методом выбора. Пока что он реализовал только фрагмент, в котором в списке ищется минимальный элемент, который затем...
Для групповых операций с файлами используются маски имён файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах ф...
Все предметы 
