Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
snoopelol5
16.07.2021 14:41 •
Информатика
Написать программу подсчёта числа отрицательных элементов массива
Показать ответ
Ответ:
lizokf8
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 оценок)
Популярные вопросы: Информатика
nnatasha0981
11.05.2023 00:24
Переведите число в десятичную систему счисления: 2578...
gleb090902
05.12.2022 18:13
Базовые цвета в цветовой модели rgb...
Alika19891
03.06.2022 05:51
Какой объём видеопамяти необходим для хранения трёх страниц изображения при условии, что разрешающая дисплея равна 800*600 пикселей, а количество используемых цветов равно...
LAKI2280041
03.06.2022 05:51
1. текстовый редактор - программа, предназначенная для 1.создания, редактирования и форматирования текстовой информации; 2.работы с изображениями в процессе создания игровых...
Viktoriya3124
22.06.2021 02:19
Как набрать ровно 7 л воды имея 2 ведра- 3 литровое и 5 литровое? (пошаговое решение)...
gagammil
22.06.2021 02:19
Результатом выполнения условия отбора к? т будут: 1) все слова, начинающиеся на букву «к» и заканчивающиеся на букву «т» 2) все слова, начинающиеся на букву «к», заканчивающиеся...
4Z1GGeR4
26.11.2020 07:33
Найдите наименьшее натуральное число, у которого ровно 36 делителей (включая 1 и само число 36). например, у числа 6 четыре делителя: 1, 2, 3, 6. в качестве ответа укажите...
millyby1
26.11.2020 07:33
Чебурашка составлял палиндромы из букв ч и б. получилось 35 палиндромов. сколько было букв ч, если букв б было 7? (в каждом палиндроме использовались все буквы ч и все...
Adiya1234567
26.01.2020 20:49
Требуется найти n-ое число в последовательности простых чисел. n 1000000. ....
Аннабель0Свит
05.04.2020 00:19
Склавиатуры вводится натуральное число n. подсчитать сумму 1! + 2! + 3! +! вычисление факториала числа оформить в виде функции pascalabc функцией или процедурой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.