Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Софиям2017
03.03.2020 00:46 •
Информатика
Написать о операторы которые напечатают и просуммируют нечетные числа на интервале от 999 до 333
👇
Увидеть ответ
Открыть все ответы
Ответ:
pollyholly123
03.03.2020
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
03.03.2020
задача 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 оценок)
Это интересно:
К
Компьютеры-и-электроника
17.08.2022
Как сделать сайт в Word: подробное руководство...
З
Здоровье
18.07.2020
Как нормализовать нерегулярный менструальный цикл: практические советы...
К
Кулинария-и-гостеприимство
10.04.2021
Пять советов, как приготовить вкусный холодный чай...
О
Образование-и-коммуникации
13.02.2021
Как написать комментарий: руководство по созданию качественных комментариев...
21.03.2023
6 советов, как быть счастливым в жизни...
И
Искусство-и-развлечения
20.03.2022
Как вставить трость в кларнет: научитесь быстро и легко...
З
Здоровье
30.08.2020
Как предотвратить простуду на коже (герпес)...
П
Путешествия
10.10.2021
Как собраться в деловую поездку: советы для эффективной подготовки...
П
Питомцы-и-животные
15.06.2022
Как производить убой крупного рогатого скота...
П
Питомцы-и-животные
13.09.2020
Как вырастить карпа кои: основные правила и советы...
Новые ответы от MOGZ: Информатика
дан55566
20.12.2022
Решите задания, (10 за каждое)...
авлвк5
01.08.2021
Гру, на, прямоугольник. 7. Назовите группу слов. килограмм, сантиметр, градус, минута....
простоhhh
26.02.2023
В каких случаях незаконное использование программ может наказывать лишением свободы...
коала22
02.05.2023
Напишите программу (кумир)...
mazaso
13.08.2020
решите тест по информатике...
oles2014
15.05.2020
1. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов: a:=1; b:=1; while a =b do b:=b+a; a:=a+1; write(b*a) 2....
polinafaber
05.04.2021
1. Проанализируйте работу программы. program n_1; var x, y: integer; begin x:=2; y:=1; while x 6 do begin y:=y*2; x:=x+1; end; end. ответьте на во а) сколько раз исполнится тело цикла?...
arsenijakula
11.02.2022
. Укажите наиболее полный перечень записи алгоритмов: а) словесный, графический, псевдокод, программный; б) словесный; в) графический, программный; г) словесный, программный; д) псевдокод....
vinks2905
11.02.2022
Определите значение s после выполнения алгоритма: алг нач цел s, k s := 0 нц для k от 4 до 8 s := s + 7 кц вывод s кон...
duwie
14.12.2020
За яких умов таблицю можна вважати аналогом відношення?...
MOGZ ответил
1) ׀ 4х + 1 ׀ =3; ответы: А) 0 и 3 В) 0,5 и-1 С) 3 Д) -4; Е) 0,5 и 1...
Обоснуйте ,кто же Чацкий - победитель или побеждённый ?...
11. Какое из вводных слов имеет значение уверенности? A. безусловно B. по-моему...
Әр заттың биіктігін тап 4 сынып...
Бейнет,зейнет,таяққа еті үйрену,диқаншы сөзінің синонимін айтыңыздаршы тезтез...
Споживчий кошик товарів японії...
Одно из первых государств, находившееся на территории от Монголии до Волги: а) Пантикапей...
Автором каких произведений, по его словам, он является? О чем говорит этот набор?...
комек керек ондык болшек ондык болшектерды оку жане жазу ондык болшекты жаи болшеке...
. На рис. 1 зображено дві пари нерухо- мих невеликих кульок. Зобразіть сили Кулона,...
Полный доступ к 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.