Пожалуйста.напишите программу на языке ПаскальВвести одномерный массив A , вывести его.

Пожалуйста.напишите программу на языке Паскаль
Ввести одномерный массив A , вывести его. Отыскать величайший
элемент среди тех, которые находятся на нечетных позициях. На приобретенное
значением уменьшить элементы с чётными индексами массива.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var amin:=a.Where((x,i)-gt;i.IsEven).Max;
  a:=a.Select((x,i)-gt;i.IsOdd?x-amin:x).ToArray; a.Println
end.

Пример
n= 15
11 37 50 31 9 -15 49 29 26 -5 27 -6 -17 -12 -26
11 -13 50 -19 9 -65 49 -21 26 -55 27 -56 -17 -62 -26
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт