помогите срочно,пожалуйста

Помогите безотлагательно,пожалуйста

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

1

begin
  // индексацая с нуля
  var R:=ArrGen(15,i-gt;10*i-i*i);
  R.Println
end.

Пример
0 9 16 21 24 25 24 21 16 9 0 -11 -24 -39 -56

2

begin
  var a:=ArrRandom(30,-50,50); a.Println;
  var m:=a.IndexMin;
  a:=a[:m+1]+Arr(0)+a[m+1:];
  a.Println
end.

Пример
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 -47 4 -5 -40 -10 43
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 0 -47 4 -5 -40 -10 43
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт