Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
morgacheva2001
02.03.2021 07:41 •
Информатика
Сумма 10 случайных чисел. вывести числа больше 5. найти минимальное число среди них. на языке паскаль.
Показать ответ
Ответ:
меаавепеу
05.10.2020 23:52
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11
0,0
(0 оценок)
Популярные вопросы: Информатика
aydansuper12
20.08.2022 19:42
Дан двухмерный массив 5на5, числа генерируются от -10 до 10. нужно найти все четные числа, разделить их на 2 и вывести в паскале...
REIIKA
25.03.2022 11:47
Где находится библиотека, которую возглавлял ученый, от имени которого пошло слово алгоритм ?...
slolia
21.01.2021 23:23
Упростите выражение используя свойство умножения определение коэффициент...
FantomLord24
31.08.2021 21:36
Task 2 Unscramble the words to discover popular British sports. The letters highlighted will spell another exciting sport. a. O L T O L A F B e. E C K R I C T _ _ _ _ _ _ _...
Zzz111zzz15zz888zz
22.11.2022 06:19
8 сынып Қазақ әдебиет бжб кимде бар...
аня2933
11.01.2021 13:08
Точка А Б С лежить у кожній з двох різних площин доведіть що ці точки лежать на одній прямій...
papovasvet
29.09.2021 17:52
Из своих слов ;) . . . . Подготовьте «Похвальное слово Елизавете, опираясь на текст оды Ломоносова....
Ромзэс1
25.09.2020 14:43
Завдання 2 сторінка 31 Власов В. С. 10 клас выполнить как можно скорее...
оарташ
25.03.2021 02:17
Б) За две недели бригада собрала 113т картофеля. Из них за первую неделю 54 т. в какую неделю картофеля собрано больше и на сколько? ПІПустил 193 станка, причём...
SadEngineer
16.06.2021 18:46
Расставить знаки препинания и вставить пропущенные буквы. ПИСЬМЕННАЯ РЕЧЬ Язык закрепле(н,н)ый письме(н,нн)ыми знаками пр…обретает особенный авторитет в глазах общества… Гимнов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11