Войти
Регистрация
Спроси 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 порядок действий соответствует правилам арифметики....
ylau2006g
13.12.2022 22:20
Вычислите периметр огорода имеющего форму четырёхугольника со сторонами a,b,c,d....
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 $ за обладнання, якщо...
margaian2005
28.07.2020 09:04
.. .. title Hi .. .. .. p Hi .. .. .. ...
wrrrr
07.04.2022 12:14
Как сделать новое отступление в word-e при этом не затрагивая старый абзац? Суть вопроса такова: мне нужно создать новый текст (МОСКВА 2020) с выравниванием по центру, но курсор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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