Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
VladimirLapskiy
07.06.2022 18:40 •
Информатика
Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным образом в диапазоне от - 13 до 13
Показать ответ
Ответ:
Dvoeshnik666
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
zurkus112
21.01.2023 19:31
Python Постройте закрашенную контурную диаграмму и трёхмерный график для следующих функций двух переменных, определённых впрямоугольной области x ∈ [−3; 3], y ∈ [−3; 3]:z=x^2-y^2z=x^2+y^2+xz=xy...
maximkomaxs373
26.03.2023 06:01
Выразить заданное утверждение с формулы логики предикатов. УТВЕРЖДЕНИЕ: Не всякий, в ком есть упорство, может изучить логику, но всякий, изучивший логику, обладает упорством....
мишка2283
26.03.2023 06:01
2 По площади размещения устройства могут быть объединены в группы (выберите несколько правильных ответов): a) периферийные устройства;b) рабочие станции;c) серверы сети;d) коммутационные...
Aнoним01
08.05.2020 06:37
информатика...через BASIC...
Slavkamyroslavka
30.06.2020 06:42
Чему будет равна величина b после выполнения фрагмента программы?a:= математика ; b:=copy(a,5,2)+copy(a,9,2)+copy(a,9,2); (ввести только ответ. например: слово )...
katya1074
03.04.2023 12:21
МНОГО . Автомат получает на вход четырёхзначное десятичное число. По этому числу строится новоечисло по следующим правилам.1. Складываются первая и вторая, а также третья и четвёртая...
3Человек3
23.05.2020 12:42
Я новичок в программировании,помните решить задачу: Вам необходимо написать функцию, которая возьмет несколько слов в качестве аргумента и вернет объединенную версию этих слов, разделенную...
vikyyyyysya142
13.03.2021 21:50
Из каких источников могут быть получены растровые изображение...
Екатерина12311111
13.05.2022 20:58
Исправьте program infinity; const pi=3.14; begin var; l,s,r: real; writeln( введи радиус ); readln(r); l: =2*pi*r; s: =pi*r*r; writeln( площадь круга: ,s длина окружности = ,l); end...
пипканегра
02.12.2020 14:09
Составить программу, которая формирует массив из 15 случайных чисел принадлежащих промежутку [3,33]. нечетные числа заменяет на 1, а остальные увеличивает на 3. на экран выводятся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.