Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ВикторияГога
02.06.2022 09:38 •
Информатика
. JALMume INAYOMIS nepaciennoi c roc78
707NCHI C7edvou
kuvaHO:
a: =a +
b:=-a
C:=-a+2* b
Other
👇
Увидеть ответ
Открыть все ответы
Ответ:
pollyholly123
02.06.2022
Var
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.
4,8
(1 оценок)
Ответ:
liliyaabramova1
02.06.2022
задача 1.
a=input().split()
f=-1
for i in range(len(a)):
if int(a[i])>0 and int(a[i])%2==0:
if f==-1:
min1=int(a[i])
max1=int(a[i])
f=1
elif int(a[i])>max1:
max1=int(a[i])
elif int(a[i])<min1:
min1=int(a[i])
if f==-1:
print('not solution')
else:
print('max=',end='')
print(max1)
print('min=',end='')
print(min1)
задача 2.
a=input().split()
k=0
max1=float(a[0])
for i in range(len(a)):
if float(a[i])==max1:
k+=1
elif float(a[i])>max1:
k=1
max1=float(a[i])
print(k)
задача 3.
a=input().split()
min1=float(a[0])
min2=float(a[0])
min3=float(a[0])
for i in range(len(a)):
if float(a[i])<min1:
min3=min2
min2=min1
min1=float(a[i])
elif float(a[i])<min2:
min3=min2
min2=float(a[i])
elif float(a[i])<min3:
min3=float(a[i])
print(min1)
print(min2)
print(min3)
4,8
(12 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
13.10.2021
Как изменить стиль исходя из вашего бюджета...
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
07.06.2020
Как перестать сомневаться: 10 простых шагов...
С
Стиль-и-уход-за-собой
06.12.2022
7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...
О
Образование-и-коммуникации
09.06.2023
Как стать онлайн-корректором: советы и требования...
О
Образование-и-коммуникации
08.05.2022
Как нарисовать Гарри Стайлса: Подробный гид для начинающих художников...
Х
Хобби-и-рукоделие
01.02.2020
Как пользоваться моноподом: полезные советы и рекомендации...
В
Взаимоотношения
29.12.2020
Как игнорировать своего парня: 5 советов для девушек, которые хотят сохранить свою независимость...
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
Новые ответы от MOGZ: Информатика
valenkov05
03.08.2021
Вычислительный практикум 1. Вычислить значение выражения: За + V4а + 1 2. Заданы гипотенуза и длина одного из катетов. Найти его площадь. 3. Дано трехзначное число. Найти число, полученное...
polikarpova05
03.01.2021
Найти значения функции на промежутке [0,15] cшагом 1, заданной функцией y=(√x-2)/x^2 , используем цикл for....
POGBOOM
29.11.2021
Найди значение выражения. (x 17)∨(x 16)¯¯¯(второе неравенство под чертой) для числа x=4...
саша17101
22.06.2021
Информатика 8 класс. нужно написать блок-схему по программе паскаль. есть фото...
Maruua1
28.07.2021
Провели систематизацию информации по дате и времени. как называется данный тип сортировки? 1.сортировка в алфавитном порядке 2.сортировка в порядке возрастания 3.сортировка в хронологической...
Evgen2100zzz
17.03.2021
Напишите программу в паскале, которая в последовательности натуральных чисел определяет количество кратных 5 и оканчивающихся 0. программа получает количество чисел на вход, а затем...
ecuzera2611
14.05.2020
Напишите программу паскаль для (pascal abc.net), которая должна посчитать сумму 3х чисел. и вторую программу, которая должна вычеслить значение функции y=x в квадрате....
pandapurple
14.05.2020
Три друга егор, игорь и роман живут в разных городах: москве, воронеже и волгограде. и учатся на разных факультетах: , и биологическом. егор учится не в москве и не в воронеже. москвич...
СуПерБро123
14.05.2020
Почему с течением времени изменялись носители информации...
korostelevaanap0a9d1
26.03.2020
Вчём состоит различие между каталог и папка...
MOGZ ответил
Точки P1, P2, P3, P4, P5 расположены на прямой 3x-2y-6=0; их абсциссы соответственно...
1. Які запобіжні заходи боротьби з наслідками землетрусів і вулканізму вживають...
Надо ответить тру фолс ЭКЗАМЕН 1. British Constitution is one of the oldest in...
Схареетиризувати політичні погляди Скоропадського...
3.Людина масою 80 кг піднімається вгору на 10 м. Яку роботу вона виконує ?...
Герой Внешность Занятие Что говорит о России Ганин Подтягин Алферов Танцоры Клара...
Вставьте пропущенные слова 1. Бюджетное ограничение определяется ценами продуктов...
решить условия задачи нужна...
Решить систему уравнений методом обратной матрицы х1+ 2х2 = 8 3х1 - х2 = 3 Второй...
Ниже приведён перечень терминов. Все они, за исключением двух, относятся к проявлениям...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
mas: array[1..7] of integer;
k, i, MAX:integer;
Begin
for i:=1 to 7 do
Begin
writeln('Введите число');
readln(mas[i]);
end;
MAX:=mas[1];
k:=1;
for i:=2 to 7 do
Begin
if mas[i] > MAX
then
Begin
MAX:=mas[i];
k:=1;
end
else
if MAX=mas[i]
then k:=k+1;
end;
writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);
readln();
end.