Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Умнанепогодам
20.04.2023 05:33 •
Информатика
Вмассиве хранится информация о росте 25 человек.определить,насколько рост самого высокого человека превышает рост самого низкого.
Показать ответ
Ответ:
Svetkoooo
07.10.2020 12:10
Program z1;
var a:array [1..25] of integer;
i,max,min:integer;
begin
read(a[1]);
max:=a[1];
min:=a[1];
for i:=2 to 25 do
begin
read(a[i]);
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write(max-min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
влажную
17.05.2021 17:57
Втаблице запросы к поисковому серверу. расположите номера запросов в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу. для обозначения...
alinalera71
26.04.2022 14:24
Составить таблицы истинности: 1) (с или не в) и не с...
Aidos2011
25.07.2021 03:57
Не получается решить : с 1) сколько единиц в двоичной записи числа 8^2018 – 4^1305 + 2^124 – 58? 2)определите число n, для которого выполняется равенство 143n + 256 = 138n+1....
artemonimus
21.03.2021 02:39
Дана точка с координатами (x,y), где x,y — целые числа, отличные от нуля. напишите программу, которая определяет в какую координатную четверь (1, 2, 3 или 4) попадет точка. придумайте...
JeDor15
20.04.2021 19:46
СОСТАВИТЬ ПРОГРАММУ НА ПИТОНЕ (ТЕМА СЛОВАРИ) 18) В молочных магазинах города Х продается сметана с жирностью 15, 20 и 25 процентов. В городе X был проведен мониторинг цен на...
dodmitry
25.07.2022 20:06
Информационное сообщение объемом 2.5 кбайт передается со скоростью 2560 бит/мин. за сколько минут будет передано данное сообщение?...
Алиса123464
15.06.2022 15:46
Автоматическая фотокамера производит растровые изображения размером 600×400 пикселей. при этом объём файла с изображением не может превышать 240 кбайт, упаковка данных не производится....
volfdima2011p0aaz8
08.02.2021 02:33
решить, пример 10x + 1 = 6x...
Nikbooc
09.01.2020 11:46
5. Хром может образовывать три оксида разного состава. Составьте формулу оксида хрома методом «нулевой суммы».а)Cr+2xOy b)Cr+4xOy...
kan001
09.01.2020 11:46
До центру маси тіла прикладені сили 12Н і 24 H під кутом 120° Знайдіть модуль і напрям рівнодійної цих сил....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..25] of integer;
i,max,min:integer;
begin
read(a[1]);
max:=a[1];
min:=a[1];
for i:=2 to 25 do
begin
read(a[i]);
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write(max-min);
end.