Ответы
Ответ дал:
0
// PascalABC.NET 3.3
begin
var n:=10;
var a:=ArrRandomInteger(n,10,90); a.Println;
var (b,c):=ReadInteger2;
a:=Range(0,n-1).
Select(i->(i in [1..n-2])and(a[i]>=a[i-1])and(a[i]<=a[i+1])?a[i]*a[i]+b*a[i]+c:a[i]).
ToArray;
a.Println;
end.
Пример:
36 26 64 68 81 81 77 72 16 27
2 5
36 26 4229 4765 6728 81 77 72 16 27
begin
var n:=10;
var a:=ArrRandomInteger(n,10,90); a.Println;
var (b,c):=ReadInteger2;
a:=Range(0,n-1).
Select(i->(i in [1..n-2])and(a[i]>=a[i-1])and(a[i]<=a[i+1])?a[i]*a[i]+b*a[i]+c:a[i]).
ToArray;
a.Println;
end.
Пример:
36 26 64 68 81 81 77 72 16 27
2 5
36 26 4229 4765 6728 81 77 72 16 27
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад