Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 19:08
1317
Заполнить массив случайными числами в интервале [-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 19:08
Остались вопросы?
Еще вопросы по категории Информатика
12. Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов. Q...
Пожалуйста,сроно надо 2. Информация в памяти компьютера представлена в: А) десятичной системе счисления; Б) шестнадцатеричной системе счисления;...
Пусть / – целочисленное деление. Тело функции F(n) задано следующими строчками и условиями: F(n) = 1, при n F(n) = F(n - 2) · (n / 3), при...
Помогите пожалуйста!что такое ВАЙП?заранее спасибо....
найдите десятичные эквиваленты чисел по их прямым кодам записанным в 8 разрядном формате со знаком: а)01001100. б)00010101....
Все предметы 
