Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
262ник626
08.01.2020 07:50 •
Информатика
Пусть дано 10 вещественных чисел, которые вводятся по одному. вычисли-те разность между максимальным и минимальным числами. паскаль abc
Показать ответ
Ответ:
panda068
05.07.2020 17:55
Var a,min,max:real;
i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to 10 do begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln(max-min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
КристинаВощевоз5
30.11.2021 18:19
Дано трехзначное число. найти сумму его крайних цифр. с++...
Kastrulya1
01.08.2021 00:04
Что выполняет данный фрагмент программы? if radiobutton1.checked then form1.caption : = заголовок изменен else if radiobutton2.checked then form1.color : = c1red else begin...
ENGPrO
07.05.2020 16:56
0,1+0,2+0,3+,9; 0,01+0,02+0,03+,09; 0,001+0,002+0,003++0,009; 0,000001+0,000002+0,000003++0,000009....
yashinaalyona20
07.05.2020 16:56
Укажите побудительное предложение. а)можно ли по цветам узнать время? б)когда наступят каникулы? в)закройте, , дверь. г) я рад нашей встрече! д) наш класс участвует в субботнике...
g11uru
07.05.2020 16:56
Массовая доля водорода в углеводороде составляет 16,67%.плотность паров углеводорода по водороду равна 36.определите его формулу....
Топовый1112
07.05.2020 16:56
Составить текст с поздравительной речи или насколько советы могут человеку...
МюслиКотаНомер1
07.05.2020 16:56
Решить уравнением : существует ли такой многоугольник у которого сумма углов 1620,1700?...
32519
07.05.2020 16:56
Пример 848+6-756: (45-45: 5) поставьте действия и решение в столбик всё попорядку...
millizza11
07.05.2020 16:56
Камень брошен вертикально вверх с начальной скоростью 10 м/с. на какую высоту он поднимется за первую секунду подъёма? какой будет его скорость в этот момент? сопротивление...
lЕвгешкаl
07.05.2020 16:56
Какие функции выполняет песня в нашей жизни?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to 10 do begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln(max-min);
end.