Сформируйте массив, содержащий 15 частей, с подмогою датчика случайных чисел. Получите

Сформируйте массив, содержащий 15 частей, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен удвоенному подходящему элементу начального массива . В приобретенном массиве найдите наибольший элемент посреди частей, номера которых кратны трем. Выведите на экран исходные и полученные результаты.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=15;
  var a:=ArrRandom(n,-49,49); a.Println;
  var b:=a.Select(t-gt;2*t).ToArray; b.Println;
  var max:=Range(3,n,3).Select(i-gt;b[i-1]).Max;
  Writeln('Разыскиваемый элемент: ',max)
end.

Пример
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт