• Паскаль. Нужно написать программу, задания 2 и 3
    Срочно прошу помощи

    question img

Ответы 1

  • // PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,-3,9); a.Println(',');  a:=a.Select((v,i)->i.IsEven?0:v).ToArray; a.Println(',')end.Пример4,-1,-2,0,6,8,-2,1,-1,40,-1,0,0,0,8,0,1,0,4begin  var a:=ArrRandom(5,0,3); a.Println(',');  var b:=a.Last;  a.Select((v,i)->(v,i)).Where(t->t[0]+b=2).Select(t->t[1]+1).Println(',')end.Пример0,3,0,1,14,5
    • Автор:

      tania100
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years