Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Coffee1998
18.12.2022 08:52 •
Информатика
Запишите программу на языке паскаль которая заполняет массив случайными числами на отрезке от -2 до 2 и считает сумму положительных элементов массива
Показать ответ
Ответ:
ТёмаТащер
21.08.2020 07:24
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
n= 10
-1 1 0 2 2 -1 -2 -1 -1 2
Сумма положительных равна 7
0,0
(0 оценок)
Популярные вопросы: Информатика
NastyaVelly
17.05.2023 05:32
Сообщение, записанное буквами 64-символьного алфавита, содержит 150 символов. какое количество информации оно несет?...
Mihailevscaeanica
17.05.2023 05:32
Составьте программу для решения одной из следующих , которая запрашивает значение элементов одномерного числового массива а и подсчета суммы элементов массива, меньших своего номера....
vgizovskaya
30.04.2021 04:42
При регистрации в компьютерной системе каждому пользователю выдается 10 и содержащий только символы №, $ @, ^, & , %. каждый такой пароль в системе записывается минимально возможным...
krizhnaya111
24.11.2021 21:26
1какие преимущества мы получаем, объединив компьютеры в сеть? 1совместное использование внешних устройств обмена данными 3повышение защиты данных 4электронная почта 5совместное использование...
Alиска
04.10.2020 05:02
Переведите в (двоичную систему счисления)- 4321103 (подробно)...
alenkashkiteva
04.10.2020 05:02
Какой ответ здесь получится? a: =7; b: =8; k: =5*a; if a b then k: =k*3 else k: =k-3; writeln (k);...
Anastasia20181
04.03.2021 23:05
Какое логическое выражение истинно, если х принадлежит [-10,10]? 1)(х 10) и(х -10) 2)(х 10) или(х -10) 3)(х 10) или(х =-10) 4)(х =-10) и(х =10)...
ivan89052
04.03.2021 23:05
Сколько единиц в двоичной записи десятичного числа 75,25? a)5 b)6 c)3 d)4 с решением ....
Вазген228
18.04.2021 06:26
Безусловный цикл- цикл с цикл с ! заранее !...
lanceva3
18.04.2021 06:26
Напишите названия известных вам программ, с которых можно открыть файлы со следующими расширениями: а) txt б) docx в) xls г) ppt д) bmp е) zip...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
n= 10
-1 1 0 2 2 -1 -2 -1 -1 2
Сумма положительных равна 7