Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
casualsicp
19.07.2021 02:47 •
Информатика
Написать программу подсчёта числа отрицательных элементов массива
Показать ответ
Ответ:
Asetkyzy
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 оценок)
Популярные вопросы: Информатика
dnabib
10.02.2022 18:03
1 Информационное общество и информационные ресурсы 2 Сделать скрин решения и приклеить в бланке ответа: В табличном редакторе EXCEL построить график y=1-2х для х от -4 до...
samuskevich
26.04.2022 06:29
Разработка информационной структуры БД. Описание поля. Уникальный атрибут. Простой и составной ключи. Поиск объекта по значению уникального атрибута. Упорядочение и сортировка...
vladt12092002
01.02.2021 09:59
Выбери верный ответ. содержит коды для 256 различных символов, пронумерованных от 0 до 255.шифрование текстадиаграммыкодовая таблицаавтофигуры скорее ...
Vinner0508
13.03.2023 15:55
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 23 символов в этой кодировке. ответ: байтов.скорее ...
Василий7595634
03.03.2023 09:16
Написати програму на мові С. Задана матриця цілих чисел розміром (N;N). Знайти максимальний елемент в зафарбованій області. Заборонено використання додаткових масивів....
mariaa987
19.08.2021 18:29
Напишите функцию, которая выводит на печать матрицу, разделяя элементы строки матрицы между собой табуляцией (символ \t)....
emilking
10.10.2021 00:33
Ира боря и алеша алеша закодировали по одному слову вот их коды...
анна2259
14.08.2021 06:22
По заданному числу (1-12)вывести название соответствующего месяца решить в паскале 1 постановка величины: n-месяц исходные данные : n результат: текстовое сообщение(наименование...
Зачемжежить
14.08.2021 06:22
Имеется 1000 монет, из которых одна монета фальшивая (легче других). придумайте нахождение фальшивой монеты за 7 взвешиваний на чашечных весах без гирь....
дима2901
20.04.2022 02:27
Разделить на 3 группы. 1гр-сочетающиеся и с количественными, и с собирательными числительными, 2гр-не сочетающиеся с собирательными числительными (употребляющиеся только...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.