• найти сумму первых U элементов массива K(N) и произведению последних j элементов этого массива.

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;  var (u,j):=ReadInteger2('Введите u и j через пробел:');  Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);  Writeln('Произведение последних ',j,' элементов ',      k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));end.Примерn= 2039 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22Введите u и j через пробел: 12 13Cумма первых 12 элементов 17Произведение последних 13 элементов 2781117283830792192
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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