1 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а также их количество.2 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов, а также их количество.3 Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем все содержащиеся в данном массиве нечетные числа в порядке убывания их индексов.4 Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве числа, кратные 3 в порядке возрастания их индексов, а также их количество и сумму.5 Дан массив размера N. Вычислить среднее арифметическое элементов массива и вывести результат.

// PascalABC.NET 3.6

begin

 var n := ReadInteger('N =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p.IsEven).Println.Count.Println; // 1

 a.Where(p -> p.IsOdd).Reverse.Println.Count.Println; // 2

 (a.Where(p -> p.IsEven) + a.Where(p -> p.IsOdd).Reverse).Println; // 3

 var s := a.Where(p -> p mod 3 = 0).Println; // 4

 Println(s.Count, s.Sum); // 4

 a.Average.Println // 5

end.

для c++

#include <iostream>

#include <math.h>

#include <string>

#include <ctime>

using namespace std;

int main()

{

   srand(time(NULL));

   int n=10,i,sum=0,ymnoj,negative=0;

   int arr[n];

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

   {

       arr[i] = rand() % 50 - 5;

   }

   

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

   {

       cout << arr[i] << "\n";

   }

   

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

   {

       if(i % 2 == 0)

       sum += arr[i];

   }

      cout << "Summa = " << sum << endl;

     

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

   {

       if(i %2 != 0)

       ymnoj*=arr[i];

   }

          cout << "ymnojenie = " << ymnoj << endl;

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

   {

       if(arr[i]<0)

       negative++;    

   }

           cout << "Negativnix elementov : "<< negative << endl;

   

   

   

   return 0;

}

1) 704 бит=88 байт

Для того чтобы перевести из биты в байты, необходимо поделить на 8. 704:8=88.

2) 12 мегабайт=0,01 гигабайт

Для того чтобы перевести из Мбайт в Гбайт нужно поделить на 1024. 12:1024=0,01 (округление до сотых)

3) 340 байт+1бит=2721

Сначала переведем байты в биты. 340*8=2720 байт.  теперь выполним сложение: 2720+1=2721

4)9 килобайт=9216 байт

Не знаю о существовании кигабайтов. потому предполагаю об опечатке. скорее всего, гигабайт или килобайт (?). переведем килобайты в байты, для этого: 9*1024=9216.

5)14 кигабайт + 7 байт =114744 бит

переведем все единицы в бит:

14 килобайт= 14*1024*8=114688 бит. (сначала переводим в байты, умножив на 1024, а потом и в биты, умножив на 8).

7 байт=7*8=56 бит.

теперь сложим: 114688+56=114744 бит