Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 01:05
1071
Заполнить массив случайными числами в интервале [-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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое ''ник" и где его используют?...
(¬AvB)∨A¬(A∨¬B) Информатика, как решить? Срочно...
На отрезке [0;2] вычислить значения функции f(x) = cosx+x с шагом 0,2. 1. Заполните таблицу по образцу:...
Сколько раз выполняется цикл в фрагменте программы: a:=1; b:=1; While a+b < 8 do begin a:=a+1; b:= b+2 end....
Доказать (A v B) ^ (-A " B) = В, выполнив эквивалентные преобразования над правой частью и построив таблицу истинности...