Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 740 б
- kirill_shatsov 705 б
2 апреля 2023 01:05
855
Заполнить массив случайными числами в интервале [-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
Остались вопросы?
Еще вопросы по категории Информатика
1) К прикладным программам относятся: 1 Текстовые редакторы 2 Графические редакторы 3 Бухгалтерские программы 4 Табличные процессоры 2) в игре поле чу...
1)Во время исполнения прикладная программа хранится: а) в процессоре б) в ПЗУ в) в оперативной памяти 2) Постоянное запоминающее устройство служит...
begin if (x>100) and (y<200) then writeln("ДА"); else writeln("НЕТ") end....
Приведите пример циклического алгоритма: а) из повседневной жизни; б) из литературного произведения; в) из любой предметной области, изучаемой в шко...
Выберите административные домены. 1) .de 2) .af 3) .biz 4) .org...
Все предметы 
