Помогите пожалуйста!!! В паскале!! Составить программу в которой значение каждого элемента массива равно раннее введённому значению минус порядковый номер
Answers & Comments
larinfo// PascalABC.NET 3.2, сборка 1367 от 20.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите элементы массива:',n); a:=a.Select((x,i)->x-i-1).ToArray; a.Println end.
Пример n= 7 Вводите элементы массива: -12 4 0 -7 9 18 3 -13 2 -3 -11 4 12 -4
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите элементы массива:',n);
a:=a.Select((x,i)->x-i-1).ToArray; a.Println
end.
Пример
n= 7
Вводите элементы массива: -12 4 0 -7 9 18 3
-13 2 -3 -11 4 12 -4