Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Андрей22256987654
01.11.2021 22:00 •
Информатика
Запишите программу на языке паскаль которая заполняет массив случайными числами на отрезке от -2 до 2 и считает сумму положительных элементов массива
Показать ответ
Ответ:
RomisuRomi
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 оценок)
Популярные вопросы: Информатика
ЧеLOVEчек51534
12.05.2020 12:35
Весёлые человечки Пончик, Сиропчик, Пилюлькин и Незнайка жили в домиках красного, жёлтого, синего и зелёного цветов. Они по утрам пили сок, чай, кофе и воду. Известно,...
VADIMSTRENDG
16.04.2020 03:08
Данной таблице истинности A B C F(A,B,C) 0 0 0 1 0 0 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 0 1 1 1 1 0 0 1 1 1 1 соответствует логическая функция F(A,B,C) ???...
артемий1456
26.12.2021 19:09
Напишите функцию заданных кнопок...
vinks2905
26.04.2023 12:23
Перечислите основные теги управления гипертекстовой страницей...
NurseRedheart
02.07.2022 15:36
вставьте пропущенные слова. -это особый вид изображения с использованием прямых и изогнутых линий называемых...
новичок535
05.01.2023 18:31
Около 15% информации люди получают с а)слух б)зрение в)обоняние,осязание,вкус...
Karamelka659
05.01.2023 18:31
Вкодировке unicode на каждый символ отводится два байта. определите информационный объем слова из 56 символов в этой кодировке. ( в битах ) , решить эту ужасную информатику...
ВКВКВКВКВКВКВК
05.01.2023 18:31
Вывести на экран три числа в порядке,обратном вводу(язык програмирования python)...
ываывс
29.12.2020 23:23
Составьте код на С++ Создайте массив из 10 ячеек заполнив его случайными числами от 1 до 10 (включительно). Предложите пользователю с клавиатуры ввести ключ и выведите...
gasymov1974
01.07.2020 21:30
Человек читает художественную литературу на русском языке со скоростью 110 слов в минуту. Оценить скорость передачи информации при таком чтении....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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