Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Tkora
09.05.2021 20:17 •
Информатика
Вмассиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическим всех элементов массива паскаль !
Показать ответ
Ответ:
fiestrigha00p01bgj
03.10.2020 18:29
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
Тестовое решение
23 25 25 23 23 24 20 23 25 21
1.8
0,0
(0 оценок)
Ответ:
Natashasergeu
03.10.2020 18:29
Var ma,sum,x:real;
i:int64;
begin
for i:=1 to 10 do begin
read(x);
sum:=sum+x;
if ma<x then ma:=x;
end;
writeln(ma-(sum/10));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
almaz20004
28.09.2021 04:42
Напишите команду для того что бы сделать такой пейзаж в питоне import turtle...
зулик3
24.03.2022 01:25
Информатикадан тест 1. Web-параққа графикалық кескін орнатуға мүмкіндік беретін тег – бұл:А) image В) img С) src D) body 2. тегінің қандай атрибуты web- парақтың...
Medewjik
30.08.2022 22:25
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 15 символов и содержащий только символы е, г, э, 2, 0, 1, 3. каждый такой...
ArtimonТёма22887
27.02.2023 03:22
Какие смысловые отрезки в простом сложном предложении разделяются запятой...
АрзуНаз
27.02.2023 03:22
Два одинаковых заряженных шарика, имеющих заряды соответственно 5 мккл и 25мккл, приводят в соприкосновение и вновь разводят на прежнее расстояние. во сколько раз...
Вадим1кр
27.02.2023 03:22
Горож в африке вблизи которого войско бфли разбиты римлянами...
холера663
27.02.2023 03:22
Списати росповідне речення. що місяцю зіроньки кажуть ясненькі? що шепчуть квытки уночы над рычкою? про що зытха вытер? . хотів би я знати, про що той струмочок...
manechka2007
27.02.2023 03:22
Плот оторвался от берега и поплыл по реке. через 40 мин навстречу ему вышла моторная лодка, собственная скорость которой 12 км/ч. найдите скорость течения реки,...
ГорголаІлля
27.02.2023 03:22
Объем воздуха необходимый для полного сжигания 20 л. (н.у.) диметиламина равен л. (н.у)...
rukozhop2002
27.02.2023 03:22
Для вещества, формула которого ch3-ch2-ch2-ch2-ch3 составьте структурные формулы двух изомеров и двух гомологов. дайте названия всех веществ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
Тестовое решение
23 25 25 23 23 24 20 23 25 21
1.8
i:int64;
begin
for i:=1 to 10 do begin
read(x);
sum:=sum+x;
if ma<x then ma:=x;
end;
writeln(ma-(sum/10));
end.