Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Viksa1451
05.02.2020 19:17 •
Информатика
Найдите сумму значений 10 элементов массива,больших 50,но меньше 60
Показать ответ
Ответ:
апааапаппаа
07.10.2020 14:45
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('S=',a.Where(t->t.Between(51,59)).Sum)
end.
Пример
n= 17
55 34 53 95 59 99 90 58 61 15 53 98 84 39 85 54 78
S=332
0,0
(0 оценок)
Популярные вопросы: Информатика
foltes
13.12.2022 22:20
Запиши название вида и по два примера. для одного вида - на растяжку - схема уже заполнена. : 1)растяжка 1. наклоны 2. повороты 1. 2. 1. 2. ,...
vikonil
13.12.2022 22:20
Размер 16-ти цветного изображения 640х512 пикселей. какой информационный объем данного изображения?...
891447819danilDanil
13.12.2022 22:20
Определите значение переменной с после исполнения данного алгоритма. a: = 10 a: = (a + 3) – a – a b: = 21 + a*a c: = b/a + 15 порядок действий соответствует правилам арифметики....
Studio1
08.07.2021 10:00
Выполните вычесление по логической схеме...
tatuxa223
21.11.2020 15:33
20 ! люди вчера сидела в интернете,читала. вдруг включился какой-то гид доступ. и теперь я не могу выйти вообще в меню или домой . говорит нажмите 3раза подряд,чтобы выйти домой...
робингуд228
22.03.2020 11:17
Что печатает следующая программа? просто дайте объяснение. program p2 var d,e,f,g,h,i,j,k: integer; funcion sub1(x,y: integer): integer; var x,y: integer; begin if x+y=3 then sub1:...
mashashhukina
07.06.2021 11:21
Визначте скільки грошей має бути в бюджеті компанії ( постійно на банківському рахунку) на початку року, щоб вона мала можливість щомісяця виплачувати 600 $ за обладнання, якщо...
wrrrr
07.04.2022 12:14
Как сделать новое отступление в word-e при этом не затрагивая старый абзац? Суть вопроса такова: мне нужно создать новый текст (МОСКВА 2020) с выравниванием по центру, но курсор...
kamilaiks466
15.08.2022 15:11
Записан стереозвук продолжительностью 2 часа 30 мин глубиной 16 бит частотой 48000 . опредилить какого размера должен быть диск чтобы записать его ....
kovalenkodenis6
24.08.2020 23:29
Написать программу переводящая заданную десятичную дробь в равную ей обыкновенную несократимую дробь,заданную числителем и знаменателем. входные данные выходные данные: 0,375 3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('S=',a.Where(t->t.Between(51,59)).Sum)
end.
Пример
n= 17
55 34 53 95 59 99 90 58 61 15 53 98 84 39 85 54 78
S=332