Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
и5п5п
26.01.2020 01:23 •
Информатика
Вклассе 26 учеников, вес учащихся от 55 до 85 кг, отсортируйте в порядке убывания веса найти средний вес ученика. ! pascal
Ответ:
Vtscrntfigduufs
07.10.2020 20:57
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(26,55,85); a.Println;
a.OrderByDescending(t->t).Println;
Writeln('Средний вес ученика ',a.Average:0:1)
end.
Пример
83 69 65 63 57 57 78 76 82 81 56 61 64 82 77 82 81 65 79 63 65 67 73 82 65 74
83 82 82 82 82 81 81 79 78 77 76 74 73 69 67 65 65 65 65 64 63 63 61 57 57 56
Средний вес ученика 71.0
0,0
(0 оценок)
Популярные вопросы: Информатика
Leg1oner
25.05.2021 18:11
Який обсяг (у байтах) мають повідомлення: а) Переломними винаходом людства був папір б) Хто володіє інформацією, той володіє світом ?...
рптпfgb
23.01.2020 17:15
Появления первых компьютеров в россии...
olegkuchmak
11.02.2023 16:17
перевести с Паскаля на С++ program n; const n = 4; var i, j, k : integer; a : array[1..n,1..n] of real; begin for i:=1 to n do begin for j:=1 to n do begin a[i][j]:=sin((i*i...
Mona228
19.12.2021 05:12
X, y, z – целые числа, для которых истинно высказывание ((z x) ∨ (z...
anya12345678900
19.09.2022 18:04
Отзыв на книгу в.катаев белеет парус одинокий!...
kvkv2
19.09.2022 18:04
Напишите 15 наречий с ь на конце, 15 глаголов с ь на конце , 15 существительных с ь на конце и исключения (т.е.) мн. число существительных 12 слов.. всего должно быть...
Полина200618
19.09.2022 18:04
Написать ответы 1.how many meals do you have every day ? a) there ore more короче как предложения сформировать ?...
Kaska322
19.09.2022 18:04
№303.выбери величины, разность которых можно вычислить. б) 495м2 - 105м 908см - 900мм 9801дм - 80м 7385см2 - 6980дм 720дм - 370см 3700м - 3км !...
Ира0386
19.09.2022 18:04
Потрібна замітка в газету на тему що таке вихованість...
Yury28
19.09.2022 18:04
Написать небольшое сочинение-эссе на тему: сталин-великий руководитель или тиран?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(26,55,85); a.Println;
a.OrderByDescending(t->t).Println;
Writeln('Средний вес ученика ',a.Average:0:1)
end.
Пример
83 69 65 63 57 57 78 76 82 81 56 61 64 82 77 82 81 65 79 63 65 67 73 82 65 74
83 82 82 82 82 81 81 79 78 77 76 74 73 69 67 65 65 65 65 64 63 63 61 57 57 56
Средний вес ученика 71.0