Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hytjnfxyhhjyutf
23.02.2022 19:21 •
Информатика
Вмассиве хранится информация о росте 25 человек. определить, на сколь-ко рост самого высокого человека превышает рост самого низкого. на с
Показать ответ
Ответ:
rudens2007
07.10.2020 00:55
Program z1;
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Лиса0399
27.04.2020 16:30
б захисту від hack warez,руткіти та соціальної інженерії.! заранее і)...
fanfa
01.02.2022 14:48
Расположите версии операционной системы android по порядку их создания. android oreo, android kit kat, android lollipop, android nougat, android jelly bean?...
stefa4
07.02.2022 01:11
Считая,что информационный вес одного символа равен 1 байту(кодировка ascii), найдите информационный объём фразы: байкал- самое глубокое в мире пресное озеро....
nazfire2003
02.05.2022 03:46
Если 128 символьным алфавитом записано сообщение из 5 символов ,то чему равен объём сообщения....
vasvas12
18.01.2020 05:04
Какими профессиями владеет компьютер? подготовьте собщение об одном из них....
yulyakarpenko3
18.01.2020 05:04
1. как называют единицу информации в ms word? 1)файл; 2)пункт; 3)символ; 4)кегль; 2. для предварительного просмотра документа используется: 1)меню программы; 2)контекстное...
aliyarahimova27
12.06.2021 09:33
Перевести код цезаря еугйжг рз жзогзх жсдуг...
VIktoriafedornak
26.10.2020 21:56
Пока вы были на отдыхе ваш аккаунт в социальной сети взломали, разместили на стене неприличные изображения и стали рассылать оскорбления друзьям в личной переписке....
megakolbina
22.06.2022 14:10
Каким образом можно узнать свойства объекта или выполнить действие с ним? побыстрее и хотелось бы правильный ответ .....
nurgustaandmitrу
28.06.2022 03:27
Рассмотрите различные варианты информационных моделей для в теме примера строящегося дома.для каждой модели оцените ее адекватность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.