Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
jeviduwel
04.06.2022 01:42 •
Информатика
Написать программу подсчёта числа отрицательных элементов массива
Показать ответ
Ответ:
Кисулятв
02.10.2020 12:46
Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]<0 then
k:=k+1;
end;
writeln;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
balabonkin68p06p8r
10.03.2021 14:07
Сколько байт в слове технология в кодировке cp1251...
Sofa9111
24.01.2022 02:34
Написать программу с циклом while (вывести положительные числа кратные 5, которые меньше 1000)...
kristpan2004p0c22v
09.07.2022 03:21
2. Запишите рациональное число в виде бесконечной десятичной периодической дроби a)4/5 b)3/5/9...
vikazinoveva03
30.03.2022 12:39
сделать сочинение по картине ...
MaksRomanov1
30.03.2022 12:39
Сравнить государства Греко-Бактрийское царство, Кушанское царство и Парфянское царство...
conyp2005
10.07.2020 16:55
Хімія 9 клас. Терміново! Задача 8 і 9!...
kuraflin666
25.02.2020 15:21
Известно, что ABCD квадрат. Назвать признак, который подтверждает равенство образовавшихся после проведения диагонали треугольников....
Olzhas2889
10.11.2021 14:52
1)Назвіть стилі мистецтва , поширені в Давній час і в єпоху Середньовіччя 2)Визначте, до якого стилю належать пам ятки євпропейської архітектури 2)Яка пам ятка України є прикладом...
tihayasonyap0c4ug
24.11.2020 05:49
цепь постоянного тока состоит из пяти резисторов сопротивления которых соответственно R1=40 Ом, R2=3 Ом, R3=6 Ом, R4=12 Ом, R5= 3 Ом. Напряжение источника питания U=40 В. Определить...
Лилия515
16.10.2020 22:00
Решите уравнение: x:7/18=2/3:7/9...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]<0 then
k:=k+1;
end;
writeln;
writeln(k);
end.