Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
аиуоушв
04.11.2020 03:56 •
Информатика
1)даны 15 чисел. найти разницу между максимальным и минимальным числом. 2)найти количество нечетных чисел среди первых 100.
Показать ответ
Ответ:
Zaynab2897
02.10.2020 09:13
Var a,b,c,d,i,m:integer;
1) begin
read(a);
c:=a;
b:=a;
for i:=2 to 15 do
begin
read(a);
if a>c then c:=a;
if a<b then b:=a;
end;
m:=c-b;
write(m);
end.
2)var c,i:integer;
begin
for i:=1 to 100 do
if i mod 2<>0 then c:=c+1;
write(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
krsssn
04.10.2021 00:56
Ввести c клавиатуры массив из 5 элементов, умножить их на 2 и вывести на экран. пример: введите пять чисел: 4 15 3 10 14 результат: 8 30 6 20 28...
LIZASSS1345
11.12.2020 21:55
Склавиатуры вводится номер дня недели.вывести его название на языке. обозначение дней недели: 1- monday 2 tuesday 3 wednesday 4 thursday 5 friday 6 saturday 7 sunday )...
Max82828
09.06.2023 21:58
По каналу связи шифрованные сообщения, содержащие только шесть букв: а, б, в, г, д, е. для передачи используется неравномерный двоичный код. для букв а, б, в и г используются...
liza1439
09.06.2023 21:58
Подчеркните информационные модели: эскизы костюмов к театральному спектаклю. атлас. макет скелета человека. расписание движения поездов. оглавление книги...
МиссПана
29.01.2023 03:13
Достоинства и недостатки колонок; наушников....
соня177
29.01.2023 03:13
Информация сообщения занимает 50 строк по 47 символов в строке сколько символов в алфавите если все сообщение содержит 2350 байт напишите с решением...
jasmin20052
21.03.2020 02:40
Написать программу на яп паскаль для вычисления площади треугольника по его сторонам ab, bc, ca (формула герона). программу написать на 13 строк....
tanya240102
12.10.2022 09:10
1. проведите анализ работы составных частей компьютера. 2.что является главной идеей темы? доказательства(обмен мнениями)...
RokkuKun
30.10.2021 09:09
Через некоторое соединение в течение 100 секунд со скоростью 192 бит/с (бита в секунду) передается некоторый файл. определите, с какой скоростью (в бит/с) должно работать соединение,...
AnastasiaPanda
28.12.2022 07:56
Производиться двухканальная (стерео) звукозапись с частотой дискретизации 11кгц и глубиной кодирования 16 бит.запись длится 6 минут,её результаты записываются в файл,сжатие...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
1) begin
read(a);
c:=a;
b:=a;
for i:=2 to 15 do
begin
read(a);
if a>c then c:=a;
if a<b then b:=a;
end;
m:=c-b;
write(m);
end.
2)var c,i:integer;
begin
for i:=1 to 100 do
if i mod 2<>0 then c:=c+1;
write(c);
end.