Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kjhgfffdpavel
29.11.2021 21:48 •
Информатика
Дан массив,состоящий из 20-ти целых чисел.выяснить,на сколько максимальный элемент превосходит минимальный : 3 ,котаны: 3 нужна программа в паскале
Показать ответ
Ответ:
Артёмка12097
01.10.2020 13:31
Var a:array [1..20] of integer; i,max,min,r:integer;
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]<min then min:=a[i];
for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alesha55551
31.08.2021 02:35
Задание первое турбо паскаль...
lizaant
31.08.2021 02:35
Изучив предложенный фрагмент программного кода и определи направление поворота робота...
Violet17
23.02.2020 10:16
Рабочий лист 11. Опыление ТерминыНайди в филворде спрятанные слова. Раскрась их цветнымикарандашами.AMbKaKTKMBaуАЖВЖMмитуKоHOкЫАчЧацъиMeууMиMйKн |HaльВоыKуаиЦ3Br:зь пк3BауВPMНюHонмABкCaщKа...
Фаай
01.02.2020 04:33
Практична робота. Створення програм із кнопками та написами У середовищі розробки програмного забезпечення Python створіть проект, який відкриває вікно із двома кнопками....
алина200423
26.02.2020 00:27
Опишите числовые форматы ячеек, используемые в программе Excel а) A1-дата , B1-процентный; б) A1-формат с разделителями, B1- дата; в) A1- денежный , B1-процентный; г) A1-...
Maksim24k
06.05.2021 12:07
СнежинкаДано нечётное число n. Создайте двумерный массив из n×n элементов, заполнив его символами . (каждый элемент массива является строкой из одного символа). Затем заполните...
violetta238
20.10.2020 00:36
_люк_ он не знает, что значит улыбка....
gopd2
20.10.2020 00:36
По обществознанию задали проект на тему этносы нашего класса , и я собираюсь писать о себе, я украинка, но боюсь что потом все будут смеяться, из-за политических отношений...
necoshevcom
20.10.2020 00:36
Жизнь трактирщика в сказке обыкновенное чудо...
Wertik3
20.10.2020 00:36
Какое высказывание ошибочно? 1) безударные окончания существительных 1-го склонения мож- но проверить словом дорога . 2) существительные среднего рода относятся ко 2-му...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]<min then min:=a[i];
for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.