Написать программу на паскале: среди 10 целых положительных и отрицательных чисел: 1. найти максимальное и минимальное значения. 2. среднее арифметическое среди трехзначных, оканчивающихся на 1 и кратных 7.
269
475
Ответы на вопрос:
Var i, e, min, max, s, n: integer; c: real; begin min : = 32767; max : = -32768; s : = 0; n : = 0; write('введите 10 чисел через пробел '); for i : = 1 to 10 do begin read(e); if max < e then max : = e; if min > e then min : = e; if (e > = 100) and (e < = 999) then if (i mod 10 = 1) and (i mod 7 = 0) then begin n : = n + 1; s : = s + i end end; writeln('max=', max, ', min=', min); if n > 0 then writeln('искомое среднее равно ', s / n: 0: 5) else writeln('нет трехзначных чисел, оканчивающихся на 1 и кратных 7') end.
Program aliona; const n=10; var a : array[1..n] of inreger; min,max,i: integer; begin randomize; for i : =1 to n do begin a[i]: =random(100)+1; write(' ',a[i]); end; min: =a[1]; for i: =1 to n do if a[i]< a[1] then a[i]: =min; max: =a[1]; for i : =1 to n do if a[i]> a[1] then max: =a[i]; writeln('min=',min,'max=',max); readln; end,
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
1Velkon122.08.2020 04:24
-
Ksenon10218.12.2021 00:52
-
МихаилКузмичёв28.02.2023 13:43
-
iobolenkov15.09.2020 03:07
-
Alina939201011.08.2020 07:26
-
otchygash226.12.2020 00:38
-
tairovazukhra26.03.2020 00:20
-
tatulia3229.06.2021 02:59
-
SOV2007.07.2020 00:18
-
нурана415.01.2023 09:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.