Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
povolyasha
01.12.2020 05:44 •
Информатика
Вмассиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическим всех элементов массива паскаль !
Показать ответ
Ответ:
T1mon4ikRYTP
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 оценок)
Ответ:
софа336
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 оценок)
Популярные вопросы: Информатика
Carroty13
21.04.2022 03:16
Бюллетень КонсультантПлюс. Пошаговая инструкция. 1 С сайта consultant.ru скачать PDF-версию своего выпуска бюллетеня 2 С графического редактора сохранить первую страницу PDF-документа...
TearPrincess2
02.08.2022 19:23
Прочти и выполни задание. Исполнитель Поглощатель преобразует с трех команд строки. Команда 1 заключается в замене всех вхождений подстроки ВОР на Р. Команда 2 - в замене всех...
Oхxxymiron
28.10.2022 20:08
Пусть М — разность максимального и минимального натуральных делителей целого числа, не считая единицы и самого числа Если таких делителей у числа нет, то считаем значение M равным...
digrigoreva61
23.10.2022 01:12
Условие Как только прибыли на остров, вы сразу решили осмотреть местность. Как же это сделать? ПАЛЬМА! Тут их как раз стоит три очень высоких. Залезаем на самую высокую пальму...
emmavalse
04.09.2021 16:21
21. дан двухмерный массив. найти сумму элементов массива....
Kammmmmmmmmmmm
29.08.2021 22:40
Знайдіть похідну функції f(x) у точці х0, якщо...а) б) в)...
soos4
07.12.2020 08:36
Напишіть твір на тему: Героїзм українського народу під час воєнного лихоліття в оповіданні Ніч Перед Боєм О. Довженка....
bigofficerjor
21.03.2020 06:08
Охарактеризуйте підгрунтя та спрямування боротьби за права конфесійних, етнонаціональних та інших меншин у країнах Заходу....
alionka7
29.09.2021 12:21
Портрет Тараса Григоровича Шевченка(як твір) 1)Що це за людина.2)Опис людини(опис зовнішності).3)Висновок....
Секретик321321
15.07.2021 23:50
В пронумерованных пробирках даны растворы нитрата кальция, нитрата натрия, нитрата алюминия, нитрата бария. Предложите алгоритм идентификации каждого раствора, используя при этом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.