Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ПеЧеНьКа811
05.04.2021 21:35 •
Информатика
+3!-1+2!-5!-3!+7!+4!-4!-9!+7!-5!-1!+10!
разгадать слово
👇
Увидеть ответ
Открыть все ответы
Ответ:
pollyholly123
05.04.2021
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
05.04.2021
задача 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 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
02.12.2022
Как создать свой неповторимый образ в стиле 80х...
С
Стиль-и-уход-за-собой
28.01.2022
Как окрасить волосы в технике Dip-Dye при помощи Kool Aid?...
Ф
Философия-и-религия
03.06.2020
Практики тибетского буддизма: как начать и что ожидать...
К
Компьютеры-и-электроника
27.05.2020
Как увеличить масштаб страницы браузера...
К
Компьютеры-и-электроника
25.08.2020
Как удалить иконки с рабочего стола (Windows)...
О
Образование-и-коммуникации
08.06.2023
Как найти площадь поверхности цилиндра: простой и понятный подход...
К
Компьютеры-и-электроника
26.11.2021
Как легко и быстро распечатывать с Samsung Galaxy Note 3...
С
Семейная-жизнь
21.02.2020
Как справиться с ребенком, который постоянно говорит нет...
02.01.2020
Как стать серьезным: 10 советов от успешных людей...
К
Компьютеры-и-электроника
25.10.2022
Как словить покемона Кресселию...
Новые ответы от MOGZ: Информатика
ulyanagrab333
02.02.2022
Як іще називають хмарне сховище даних? Хмарний клієнт Хмарний диск Хмарний сервер Хмарна пошта...
Макслайв
21.10.2022
Тест решите фото открыть полностью прежде чем дать ответ) ...
kamilahamidova
27.12.2020
и 75 и 96 и 97 и ОТ все мои балы...
Рыжая111111
12.08.2021
Визнач порядок команд в алгоритмі створення векторного зображення.. До ть будьласка...
soloveyandrey3
24.07.2020
Зворотній перегляд масиву здійснюється циклом...
20.03.2020
Заполните пропуски,чтобы вывести Ilove Python...
егорбаглаев11
15.07.2020
|| || || | | | Звуки В презентации E) | | | | | | | | | | | | | | | і | | | | | | | | | | — 1 || || - | | | | III Выбери файлы мультимедиа. | | | - Д Верных ответов: 2...
KsennyTAR
26.12.2021
В банк внесли вклад 10000р под 5% годовых. Найдите день когда сумма вклада станет больше или равной 20000р если можно, то со схемой) ...
dfgds1
04.05.2020
Кто озвучивао русскую локлизацию Вааса из Фар Край нужно информатике...
Annet225
07.04.2020
Пользователь вводит массив из 10 чисел, надо вывести максимальное...
MOGZ ответил
Надо решить 2 задачи по геометрии 7 и 8...
4. Укажите односоставное предложение А) Злая собака кусает исподтишка....
Токтамыс пен амир темир кактыгыстарынын себебтери мен татижеслерин...
Яка виборча система існує в сучасній Україні?...
Желательно расписать действия...
Дан график зависимости напряжения между обкладками конденсатора от...
Напишіть рівняння гармонічного коливального руху за такими його характеристиками:...
уявіть що ви перебуваєте на човні посередині озера .До берегів не далеко...
Геометрии 3 задачи как можно скорее...
Відрізок AB не перетинає площину α. Через кінці відрізка AB і його...
Полный доступ к 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.