Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
MASTER25575
12.06.2022 19:04 •
Информатика
определите значение переменной S после выполнения фрагмента алгоритма S=1 Нц для I от 1 до 6 S=S+I*I КЦ
👇
Увидеть ответ
Открыть все ответы
Ответ:
kira1321
12.06.2022
// 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 теплее
4,6
(1 оценок)
Ответ:
Tuna234
12.06.2022
Отсортируйте массив по не возрастанию (вместе с индексами) и подсчитайте сумму 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
4,4
(90 оценок)
Это интересно:
К
Компьютеры-и-электроника
07.04.2020
Установка HD игр с кэшем на Android: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2020
Как избавиться от ушных пробок: причины, симптомы и лечение...
В
Взаимоотношения
16.10.2021
Как признаться в любви в записке: искусство выражения чувств...
С
Стиль-и-уход-за-собой
17.12.2021
Горячее масло: идеальный способ привести ваши волосы в порядок?...
К
Компьютеры-и-электроника
10.11.2021
Как изменить список программ для автозапуска...
К
Кулинария-и-гостеприимство
31.12.2020
Как приготовить пасту Чикен Альфредо, чтобы она получилась вкусной?...
Д
Дом-и-сад
19.11.2020
Как вырастить куст розы из черенка: шаг за шагом...
С
Стиль-и-уход-за-собой
25.11.2020
Как поддерживать здоровье волос: советы и рекомендации от экспертов...
З
Здоровье
30.06.2020
Как обезопасить себя от сна, когда усталость уже на грани...
В
Взаимоотношения
09.04.2021
Как жить одному: советы и рекомендации для современного человека...
Новые ответы от MOGZ: Информатика
rfvbkz28
12.06.2022
Нужны команды для данного рисунка в кумире! !...
Angel2к17
08.05.2020
Составить с двумя этими блок-схемы. именно нужно нарисовать! не код программы!...
katakoval
10.11.2022
Какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая дисплея равна 1024×576 точек, а глубина цвета равна 24?...
yarikplay13
10.11.2022
Какой объем памяти требуется для хранения звуковой информации при времени звучания 3 минуты с частотой дискретизации 44,01 кгц и глубине кодирования 16 бит, что время звучания составляет...
atamanova91
04.05.2020
Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 56 символов. Определите информационный объём статьи в одной из кодировок Unicode,...
Sera4erka
25.03.2022
сделать тест Очень надо Заранее за ответы...
fckusowgwfy
22.10.2022
Найдите значение переменных,если это возможно. Учтите,что число 7.0 является вещественным т.к оно имеет дробную часть,хотя и равную нулю. Операции MOD и DIV можно выполнить только...
СлавноваМаша
13.06.2020
Вариант-1 1. Когда необходимо составлять блок-схему программы? · 1) До начала составления самой программы · 2) После составления программы · 3) В процессе составления программы 2....
MariaRosengard
10.02.2023
Что входит в интервейс программы Ms World ?...
klokova049otccwt
09.10.2021
объясните , как запустить Word...
MOGZ ответил
20 каштанов растояние между ними 5 метров метров в длинну ряд коштанов...
При делении числа на то же самое число получается...
Запишите омонимы распределяя их по графикам...
Можете разность двух чисел 15,6, а их отношение 49: 1. найдите большее число...
Каких из перечисленных деревьев в природе не существует: колбасное,молочное,огуречное,мыльное,бутербродное,свечечное,бутылочное?...
Как будет по he s 42 and he s a pilot. he can speak french. he s very cook...
Составь по краткой записи: в одно и два действия. девочек - 7 чел. }? чел. мальчиков...
Доклад о грибе лисичка для 2 класса, чтобы дети поняли. )...
Рассказ о дубровском из романа дубровский 1.жизнь в питере 2.отношения с отцом...
Названия каких рек и озёр ты знаешь? запиши их...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
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 теплее