Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Verabogomaz
15.01.2021 23:07 •
Информатика
Вводится натурально число не более чем из 200 цифр определите все ли цифры в нем нечетные
Показать ответ
Ответ:
мила0770
04.04.2022 21:34
Отсортируйте массив по не возрастанию (вместе с индексами) и подсчитайте сумму s = s+b[i]*(i+1) - индексы от нуля.
Это и будет наименьшее время.
#include <iostream>
#include <cstdlib>
using namespace std;
int main() {
int n,i,s;
bool priz=true;
cin>>n;
int b[n],c[n];
for (int i=0; i<n; i++)
{
cin>>b[i];
c[i]=i+1;
}
// сортировка масcива по не возрастанию
while (priz)
{
priz=false;
for (int i=0; i<n-1; i++)
{
if (b[i]<b[i+1])
{
swap(b[i],b[i+1]);
swap(c[i],c[i+1]);
priz=true;
}
}
}
s=0;
for (int i=0; i<n; i++) s+=b[i]*(i+1);
cout<<s<<endl;
for (int i=0; i<n; i++) cout<<c[i]<<" ";
cout<<endl;
system("pause");
return(0);
}
Ввод - вывод:
6
10 21 13 36 41 9
332
5 4 2 3 1 6
0,0
(0 оценок)
Ответ:
agasan420
25.10.2020 07:19
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var g:=ArrRandom(31,0,40); g.Println;
Writeln(g.IndexMax+1)
end.
Пример
38 34 15 11 2 33 12 39 12 0 32 23 7 18 22 31 0 6 19 15 24 37 26 12 7 9 20 25 21 18 20
8
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
begin
var y:=ReadArrReal('2008:',12);
var z:=ReadArrReal('2009:',12);
var d:=y.Average-z.Average;
if d>0 then Writeln('2008 теплее')
else
if d<0 then Writeln('2009 теплее')
else Writeln('Оба года имеют одинаковую среднюю температуру')
end.
Пример
2008: -12.7 -10.4 -2.3 5.7 12.5 19.6 24.1 22.8 19.9 17.6 8.2 -7.4
2009: -15.2 -9.4 1.6 7.1 13.5 17.1 26.3 21.4 17.5 14.2 10.1 -12.6
2008 теплее
0,0
(0 оценок)
Популярные вопросы: Информатика
kiri4nko
14.03.2020 01:31
* Укажите логический тип данных:O intlistboolfloatstrЭто обязательный вопрос....
erenyeger2398
07.01.2023 01:31
Чем занималась компания LEGO до производства конструкторов?...
karicristle313
25.07.2021 10:59
Подскажите путёвый сайт для рисования блок-схем!...
Агааемгов
25.07.2021 10:59
Сколько единиц в двоичной записи числа 41024 + 22046 – 15?...
elllis
18.02.2022 12:37
составить программу Задача:Белоснежка на Рождество решила купить гномам новые рубашки. Она определила размеры каждого: R1, R2, R3, R4, R5, R6, R7. B магазине ей предложили рубашки...
PicaChuShiK
16.06.2020 20:56
Напишите программу,которая вычисляет площадь прямоугольника по двум его сторонам....
ulyanahoroshina
26.03.2023 10:12
Наибольшей наглядностью обладает следующая форма записи алгоритмов: а)словесная б)рекурсивная в)графическая г)построчная...
anastasiyageras
26.03.2023 10:12
Знайти суму всіх натуральних чисел від 1 до n...
Jonson2002
12.11.2020 04:39
Даны координаты точек: а(5; 2),b(5; 3),c(2; 3),d(5; 6),e(3; 6),f(5; 8),g(4; 8),h(6; 10),i(8; 8),j(7; 8),k(9; 6),l(7; 6),m910,3),n(7; 3),o(7: 2),p(5: 2).соединив их в алфавитном...
belover
20.12.2021 05:32
СОСТАВИТЬ ЛОГИЧЕСКИЕ ВЫРАЖЕНИЯ ПО СХЕМАМ Ж...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Это и будет наименьшее время.
#include <iostream>
#include <cstdlib>
using namespace std;
int main() {
int n,i,s;
bool priz=true;
cin>>n;
int b[n],c[n];
for (int i=0; i<n; i++)
{
cin>>b[i];
c[i]=i+1;
}
// сортировка масcива по не возрастанию
while (priz)
{
priz=false;
for (int i=0; i<n-1; i++)
{
if (b[i]<b[i+1])
{
swap(b[i],b[i+1]);
swap(c[i],c[i+1]);
priz=true;
}
}
}
s=0;
for (int i=0; i<n; i++) s+=b[i]*(i+1);
cout<<s<<endl;
for (int i=0; i<n; i++) cout<<c[i]<<" ";
cout<<endl;
system("pause");
return(0);
}
Ввод - вывод:
6
10 21 13 36 41 9
332
5 4 2 3 1 6
// Внимание! Если программа не работает, обновите версию!
begin
var g:=ArrRandom(31,0,40); g.Println;
Writeln(g.IndexMax+1)
end.
Пример
38 34 15 11 2 33 12 39 12 0 32 23 7 18 22 31 0 6 19 15 24 37 26 12 7 9 20 25 21 18 20
8
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
begin
var y:=ReadArrReal('2008:',12);
var z:=ReadArrReal('2009:',12);
var d:=y.Average-z.Average;
if d>0 then Writeln('2008 теплее')
else
if d<0 then Writeln('2009 теплее')
else Writeln('Оба года имеют одинаковую среднюю температуру')
end.
Пример
2008: -12.7 -10.4 -2.3 5.7 12.5 19.6 24.1 22.8 19.9 17.6 8.2 -7.4
2009: -15.2 -9.4 1.6 7.1 13.5 17.1 26.3 21.4 17.5 14.2 10.1 -12.6
2008 теплее