Войти
Регистрация
Спроси ai-bota
даша3638
24.03.2020 05:33
Задан массив, состоящий из 33 элементов, являющихся случайными числами из диапазона (-20, 60). вывести на экран числа, большие 40, а также их сумму. на языке паскаль. 15б
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
pomidorka334
04.09.2021 05:44
Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль....
DDDDBB
07.02.2020 09:05
Дана матрица целых чисел размером 5 на 6. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца....
Milka0102200676
01.05.2023 02:43
Составьте программу в PascalABC по блок схеме...
beresnevav55p0as1j
20.01.2023 21:47
Отгадайте слово, обозначающее некое понятие информатики. в разных ситуациях оно может употребляться со следующими прилагательными: 1) секретная, научная, ложная, техническая, массовая...
Emma510
20.01.2023 21:47
Вопросы по информатике,ответы которые должны быть да или нет...
karins2
20.01.2023 21:47
1. зашифрованная пословица. разгадайте слова в предложениях (каждой букве соответствует определенная цифра). 1. чтобы рубить дрова, нужен 14, 2, 3, 2, 7 , а чтобы полить огород –...
darinanugmanova
21.05.2020 07:01
30 дана прямоугольная матрица а[1..n,1..m] ,заполненная случайными числами в диапазоне от 10 до 40 включительно.вывести на экран матрицу, максимальный элемент данной матрицы в каждой...
ирина1857
03.12.2021 23:00
Инфа, , pycharm, обязательно pycharm ! напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. программа получает на...
yuratihonov
01.04.2023 11:10
Инфа, pycharm, умоляю, завтра кр! обязательно в питоне или пайчарменапишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. программа...
www22042004
09.10.2020 06:09
Напишите код программы. код нужен для кумира,...
Ответ:
natashavoropaeva
08.10.2020 20:03
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота