М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Geopolit
Geopolit
23.01.2022 02:56 •  Информатика

Нужно решение программы, нам завтра с утра сдавать. Задан массив натуральных чисел из 10 элементов [1,8,6,0,10,2,4,1,1,10].
Написать программу, выполняющую последовательно следующие действия:
1. Введите массив (список) в программу.
2. Распечатать массив на экране (команда принт).
3. Распечатать срез элементов с 1 по 8 элемент включительно.
4. Вычислить сумму [1] и [8] элементов, используя индексы на данные элементы. Результат распечатайте на экран.
5. Измените элементы [1] и [8] в массиве на значение суммы, вычисленное в предыдущем задание (команда присваивание =).
6. Распечатайте массив на экране

программа паскаль (8 класс)


Нужно решение программы, нам завтра с утра сдавать. Задан массив натуральных чисел из 10 элементов [

👇
Ответ:
anuynilonoca
anuynilonoca
23.01.2022

##

var a := |1, 8, 6, 0, 10, 2, 4, 1, 1, 10|; // 1.

a.Println; // 2.

a[:8].Println; // 3.

var s := a[0] + a[7];

Println(s); // 4.

(a[0], a[7]) := (s, s); // 5.

a.Print // 6.


Нужно решение программы, нам завтра с утра сдавать. Задан массив натуральных чисел из 10 элементов [
4,6(49 оценок)
Открыть все ответы
Ответ:
PlizHelpMee
PlizHelpMee
23.01.2022

Определение ДНС провайдера из своей сети Проще всего это сделать, когда имеется сеть и выход в интернет, либо то же самое можно сделать от абонента, также обслуживающегося в вашей провайдерской сети. Для этих целей следуйте инструкции: запустите командную строку, нажав в меню «Пуск», затем «Выполнить» и набрав в строке CMD (строчными); в открывшемся окне командной строки наберите ipconfig/all; в отчете вы получите список DNS-адресов; полученные адреса можно физически прописать в настройках сети, в этом случае выход в сеть будет стабильно работать даже при сбоях автоматического обнаружения ДНС-серверов.

4,6(42 оценок)
Ответ:
Alyona2022
Alyona2022
23.01.2022

random_device rd;

mt19937 eng(rd());

uniform_int_distribution<int> dist(1, 10);

 

int n;

int x;

cin >> n >> x;

 

vector<int> a(n);

for (auto& i : a)

 i = dist(eng);

 

copy(a.cbegin(), a.cend(), ostream_iterator<int>(cout, " "));

 

cout << '\n';

 

sort(a.begin(), a.end());

 

copy(a.cbegin(), a.cend(), ostream_iterator<int>(cout, " "));

 

cout << '\n';

 

if (binary_search(a.cbegin(), a.cend(), x)) {

 cout << x << " found";

} else {

 set<int> temp(a.cbegin(), a.cend());

 

 if (x < *temp.cbegin()) {

   cout << *temp.cbegin();

 } else if (x > *prev(temp.cend())) {

   cout << *prev(temp.cend());

 } else {

   auto f = lower_bound(a.cbegin(), a.cend(), x);

   auto s = upper_bound(a.cbegin(), a.cend(), x);

 

   if (f != a.cend() && s != a.cend()) {

     if (abs(*f - x) < abs(*s - x)) {

       cout << *f;

     } else {

       cout << *s;

     }

   } else if (f == a.cend() && s != a.cend()) {

     cout << *s;

   } else if (f != a.cend() && s == a.cend()) {

     cout << *f;

   }

 }

}

4,8(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ