В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
zbwbsh
zbwbsh
28.02.2022 07:09 •  Информатика

Какое правильно копирования применяется в Excel​

Показать ответ
Ответ:
lolSashalolo
lolSashalolo
11.12.2021 19:28

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var n := ReadInteger();

 var a := Range(1, n);

 //Sum

 a.Sum.Println;

 //произведение

 a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;

 //Кол-во кратных 2 и 3

 a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;

 //Среднее ряда

 a.Average.Round.Println

end.

#2

begin

 var A := ReadArrInteger(10);

 A.Println;

 //максимум

 A.Max.Println;

 //Сумма кратных 2 и 3

 A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println

end.

0,0(0 оценок)
Ответ:
ariiiiiaha
ariiiiiaha
12.08.2021 10:05

#include <iostream>

#include <cmath>

using namespace std;

signed main() {

   int n;

   cin >> n;

   double a[n];

   for(int i = 0; i < n; i++)

       cin >> a[i];

   double mx = -10000000000000;

   for(int i = n/2; i < n; i++)

       mx = max(mx,a[i]);

   for(int i = 0; i < n-1; i++)

       for(int j = 0; j < n - i - 1; j++)

           if(a[j] > a[j+1])

           {

               double temp = a[j];

               a[j] = a[j+1];

               a[j+1] = temp;

           }

   cout << "maximal element of the second half: " << mx <<"\n";

   cout << "array after sorting: " << "\n";

   for(auto i: a)

       cout << i << " ";

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота