Дан массив из семи элементов. данные вводятся с клавиатуры. вывести на экран отрицательные элементы массива и их количество, затем с новой сироки все положительные элементы массива и их колличество.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(7);
  var s:=a.Where(t->t<0);
  s.Print; Writeln(', элементов: ',s.Count);
  s:=a.Where(t->t>0);
  s.Print; Writeln(', элементов: ',s.Count)
end.

Пример
62 18 -15 0 14 -23 7 -1
-15 -23, элементов: 2
62 18 14 7, элементов: 4

Номер 9:Перемножь 1500*40*60 и получишь количество байт в книге.

Каждый символ занимает 1 байт в кодах ASCII, KOI-8 и ANSI.

Потом раздели на 1024 и получишь Кбайты. Еще на 1024 - получишь Мбайты.

У меня получилось примерно 3,43 Мб. Номер 11:Каждый знак кодируется 1 байтом в кодировках ASCII или ANSI и 2 байтами в кодировке Unicode.

Поскольку длина фразы 12 знаков, в ней и будет 12 байт, или 12*8 = 96 бит, если в ASCII или ANSI считать, и 24 байта, или 192 бита в Unicode.

Но это по законам информатики. А по человечески - она не несет никакой информации, потому что это просто приветствие, оно ничего нового собеседнику не сообщает.

/** libraries */

#include <iostream>

#include <cmath>

#include <vector>

#include <map>

#include <set>

#include <queue>

#include <stack>

#include <algorithm>

/** libraries */

using namespace std;

/** defines */

#define ll long long

#define ld long double

#define yes cout << "YES" << "\n"

#define no cout << "NO" << "\n"

/** defines */

signed main() {

   ios_base::sync_with_stdio(false);

   cin.tie(nullptr);

   cout.tie(nullptr);

   srand(time(NULL));

   vector<ll> a(4);

   for(ll i = 0; i < 4; i++)

       cin >> a[i];

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

   cout << *a.begin() + 10;

}