Дано масив V(12). Якщо додатних елементв в ньому менше нж вдмних,
Дано масив V(12). Якщо додатних елементв в ньому менше нж вдмних, то замнити в ньому вдмн елементи нулями. В протилежному випадку кожен вдмний елемент замнити добутком тих елементв масиву V, як бльше половини наибольшего елемента. Початковий сформований масиви видати до друку. Масив V задати самостйно. Помогите решить, на завтро очень надо
Drombjanc Ruslan
язык хоть какой?
Витя
Да без разницы
2 ответа
Ксения Приклонских
//PascalABC.NET 3.1 сборка 1200
function Change(condition: boolean; value, default_value: integer): integer;
begin
if condition then
Change := value
else Change := default_value;
end;
const
n = 12;
begin
var a := ArrRandom(n, -10, 10);
a.Println;
if a.Where(x -gt; x gt; 0).Count gt; a.Where(x -gt; x lt; 0).Count then begin
var half_max := a.Max / 2;
var mult := 1;
mult := a.Where(x -gt; x gt; half_max).Aggregate((mult, x)-gt; mult * x);
a.Transform(x -gt; Change((x lt; 0), mult, x));
end
else
a.Transform(x -gt; Change((x lt; 0), 0, x));
a.Println;
end.
function Change(condition: boolean; value, default_value: integer): integer;
begin
if condition then
Change := value
else Change := default_value;
end;
const
n = 12;
begin
var a := ArrRandom(n, -10, 10);
a.Println;
if a.Where(x -gt; x gt; 0).Count gt; a.Where(x -gt; x lt; 0).Count then begin
var half_max := a.Max / 2;
var mult := 1;
mult := a.Where(x -gt; x gt; half_max).Aggregate((mult, x)-gt; mult * x);
a.Transform(x -gt; Change((x lt; 0), mult, x));
end
else
a.Transform(x -gt; Change((x lt; 0), 0, x));
a.Println;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов