Написать программу, которая заполняет массив А[1..50] случайными числами из диапазона (-30, 30), подсчитывает сколько раз встречается число 0.
5бкрутой
3
13.04.2020 23:00
2
Другие вопросы по теме Информатика
хомяк225
02.08.2019 08:00
alexfeels555
02.08.2019 08:00
автормемов
10.12.2021 16:44
Zhania2007
10.12.2021 16:44
anka110
11.02.2022 00:41
плюскваммиперфекти
28.05.2019 10:50
kblaginin6gmailm
28.05.2019 10:50
rusakova09
28.05.2019 10:50
zzsasz33
16.06.2019 22:20
DImonist
16.06.2019 22:20
Популярные вопросы
- На основе таблицы вычислите Константу скорости реакции(K)...
1 - Выбери формулы веществ, необходимых для осуществления превращения: −→1−→2−→3...
1 - Упражнение 1. Выпишите числительные. Укажите их разряд и вид строения.Образец:...
2 - Д…вай 1 земля 2 ( н…)мно…ко о…д…хнём 3 От важных дел 4 от шумных пут…шествий!...
3 - Становила2. Дріт розрізали на три частини. Довжина однієї частини до-рівнювала...
2 - 3. Радіус кола, описаного навколо прямокутного трикутника, дорівнює 10см, а...
1 - 3. Укажіть неправильне твердження про Північний Льодовитийокеан:А найхолодніший...
1 - Кому належать слова Усі меня довіряють, що я, мовлял, злигався з вельможними...
2 - Нужно поставить глаголы в правильную форму...
3 - Складіть таблицю живих организмів Індійського та Північно-Льодовитого океану?...
2
var s, i: integer;
a:array[1..50] of integer;
begin
for i:=1 to 50 do
begin
a[i]:=30-random(61);
write(a[i],' ');
end;
for i:=1 to 50 do
s:=0;
begin
if a[i]=0 then
s:=s+1
end;
writeln('Нулей в массиве = ', s);
end.