В массиве, заполненном произвольными целыми числами, найдите два числа, произвед...

July 2022 1 6 Report

В массиве, заполненном произвольными целыми числами, найдите два числа, произведение которых максимально. Вложенные циклы не используйте.
Помогите пж!!! на Паскале

Answers & Comments

Aillianna

Verified answer

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses System;
begin
    var a := ArrRandomInteger(100, -100, 100);
    Println(a);
    var max := a.Max();
    a[a.IndexMax()] := 0;
    max := max * a.Max();

    var min := a.Min();
    if (min < 0) then begin
        a[a.IndexMin()] := 0;
        min := min * a.Max();
    end;

    writeln(Math.Max(max, min));
end.

Aillianna без подключения оно ошибку выдавало

Aillianna так было проще

Aillianna тут просто смесь , в родном шарпе такого тен

Aillianna нет

Aillianna а мне ближе именно шарп потому писала в его парадигме

Aillianna Вы ж сами сказали что задача сложная, значит не для начинающих. А вот что надо начинающим я уже давно не знаю

Answers & Comments

Verified answer

1 najdite naimenshee chyotnoe desyatiznachnoe chislo 2 najdite naibolshee nechyotnoe

1 najdite naimenshee chyotnoe desyatiznachnoe chislo s razlichnymi ciframi 2 najdite

najdite znachenie vyrazheniya 15m 6k7m esli 4m 3k08 pomogite pozhalujsta za

рекомендуемые вопросы

Helpful Links

Helpful Social