Анастасий
7 год назад
Даны два вещественных вектора А и В. Логической переменной С присвоить значение TRUE, если у вектора А количество положительных элементов больше, чем у вектора В, и значение FALSE в противном случае (Pascal)
ОТВЕТЫ
Зосимович
Jul 10, 2019
// 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-gt;xgt;0).Count)gt;(b.Where(x-gt;xgt;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
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(ReadInteger(Длина вектора А=),-50,50); a.Println;
var b:=ArrRandomReal(ReadInteger(Длина вектора B=),-50,50); b.Println;
var c:=(a.Where(x-gt;xgt;0).Count)gt;(b.Where(x-gt;xgt;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
132
