// PascalABC.NET 3.2, сборка 1362 от 14.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandomReal(ReadInteger('Длина вектора А='),-50,50); a.Println; var b:=ArrRandomReal(ReadInteger('Длина вектора B='),-50,50); b.Println; var c:=(a.Where(x->x>0).Count)>(b.Where(x->x>0).Count); Writeln(c) end.
Пример Длина вектора А= 5 11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174 Длина вектора B= 6 15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264 True
/** 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;
}
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(ReadInteger('Длина вектора А='),-50,50); a.Println;
var b:=ArrRandomReal(ReadInteger('Длина вектора B='),-50,50); b.Println;
var c:=(a.Where(x->x>0).Count)>(b.Where(x->x>0).Count);
Writeln(c)
end.
Пример
Длина вектора А= 5
11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174
Длина вектора B= 6
15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264
True