выдать наибольший из модулей элементов последовательности.На Паскале Составьте код

Выдать наибольший из модулей частей последовательности.
На Паскале

Составьте код пожалуйста и если не тяжело блок-схему. Безотлагательно!!

Задать свой вопрос
Никита Шматов
Могу без блок-схемы. Живописать лень.
Артемий Ямосов
Давай
1 ответ

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 a.Select(t -gt; Абс(t)).Max.Println

end.

n= 13

24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32

46

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт