tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти количество отрицательных
Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным образом в диапазоне от - 13 до 13
ОляМалинка
1 30.05.2019 05:00
2
Ответы
anonimm852
29.06.2020 22:13
Program chik;
var a,k,i:integer;
begin
k:=0;
for i:=1 to 14 do
begin
a:=trunc((13-(-13))*random-13);
if(a<0)then k:=k+1;
end;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
anastasija193p07d7p
21.04.2021 08:47
Причины вреда долгого времени в Интернете...
shmakovaangeli
21.04.2021 08:48
Задание 1: Наберите текст стихотворения и разбейте его на две колонки ИДЕАЛ И СИРИУСЯ долго странствовал по свету,Я все увидел, все узнал,Но, мгпой туманною одета,Ты мимо шла,...
Zeka211
21.04.2021 08:48
Анна работает над проектом, в котором прямоугольник нужно покрасить с однойстороны в красный цвет, а с другой – в белый.Можно ли это сделать?нет, потому что прямоугольник плоскийнет,...
krubtsova79
21.04.2021 08:49
Требуется на экране вывести модуль чисел до введенного числа с клавиатуры (цикл for и ...
Lena2402bux
30.03.2021 21:35
До однієї БД Access може бути створено...
Polinakovta
30.03.2021 21:31
Хотя би одне або два але хоть шось даю ...
tt9692069
27.04.2021 08:52
До іть Будь ласка ❤️прислати відео через ватсап або вайбер номер мій0987916813...
papstik
21.07.2019 03:00
Является ли заданное число четным и положительным...
ксения1376
16.03.2019 06:30
Определить является ли заданная матрица n-ого порядка симметричной относительно побочной диагонали (написанпие программы в с++)...
Юриякамория
16.03.2019 06:30
Преобразовать ниже информацию к табличному виду, определив имя таблицы и название каждого поля: оля, петя, 13, пе-ние, 14, баскетбол, вася, катя, 13, хоккей, баскетбол, футбол,...
Популярные вопросы
Полеолит кезеңін кім зерттеді?...
1
решить задачи по геометрии...
1
1s22s22p63s23p4 электрондық конфигурациясының спектроскопиялық белгіленуіне...
1
Напишите кластер к биографии Т. Султанбекова...
2
ть будь ласка з 11, мені дуже потрібно...
2
ответьте на вопросы : 1)В каких случаях возможно ограничение прав школьников?...
2
Какой текст можно сделать с етих слов...
2
Упростите логические выражения. Правильность упрощения проверьте с таблиц истинности...
2
1.Какие реформы провел император Юстиниан l. 2.Как развивалась дипломатическая...
2
Ақпараттық қауіпсіздіктің бұзылуына әсер ету мүмкін табиғи қауіп-қатер...
2
var a,k,i:integer;
begin
k:=0;
for i:=1 to 14 do
begin
a:=trunc((13-(-13))*random-13);
if(a<0)then k:=k+1;
end;
writeln(k);
end.