М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pchpppr
pchpppr
16.03.2023 01:26 •  Информатика

Написать программу через паскаль среднее арифметическое ста чисел случайным образом в массиве от 50 до 100

👇
Ответ:
Valentinka14485
Valentinka14485
16.03.2023
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(100,50,100); a.Println;
  Writeln('m=',a.Average);
end.

Пример
79 81 50 65 72 67 78 88 89 61 54 71 56 90 84 93 62 57 52 59 58 53 98 83 63 61 57 68 85 98 68 93 50 88 60 96 51 97 71 90 89 62 93 78 55 59 97 72 72 90 64 74 57 87 72 75 84 68 51 60 60 60 52 92 94 62 70 69 79 88 91 65 86 62 70 96 61 69 77 54 65 86 96 96 84 94 85 64 65 85 62 84 96 60 80 79 59 51 85 94
m=73.82
4,4(100 оценок)
Открыть все ответы
Ответ:
kirilsex69
kirilsex69
16.03.2023
С программного обеспечения можно при компьютер для решения задач конкретных пользователей. · Пользователи решают свои задачи с прикладных программ. · Операционная система – важнейшее программное обеспечение, без которого использовать современный компьютер практически невозможно. · Программисты пишут программы с систем программирования. · Кроссплатформенные программы могут работать в различных операционных системах. · Пользователь работает с компьютером в режиме диалога. Он может использовать интерфейс командной строки или графический интерфейс. · Для быстрого доступа к программам и документам можно использовать ярлыки (ссылки). · Инсталляция – это установка и настройка программы на компьютере пользователя.
4,7(1 оценок)
Ответ:
dan776
dan776
16.03.2023
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,n):=ReadInteger3('Интервал [a,b] и число элементов;');
  var M:=ArrRandom(n,a,b); M.Println; // заполнение и вывод массива
  var k:=n div 2; // середина массива
  M:=(M[:k].OrderBy(t->t)+M[k:].OrderByDescending(t->t)).ToArray;
  M.Println
end.

Примеры
Интервал [a,b] и число элементов; -50 50 19
-12 -45 5 28 -43 -45 21 4 -44 49 7 -30 1 24 -23 2 -17 -48 32
-45 -45 -44 -43 -12 4 5 21 28 49 32 24 7 2 1 -17 -23 -30 -48

Интервал [a,b] и число элементов; 0 1 30
0 0 1 1 1 1 0 1 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0
4,4(31 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ