• В одномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с помощью датчика случайных чисел). В одномерном массиве вывести все элементы массива, которые меньше пяти (сгенерировать элементы массива с помощью датчика случайных чисел; кол-во элементов массива введите с клавиатуры). В одномерном массиве подсчитать сумму всех элементов массива, оканчивающихся на 3 (сгенерировать элементы массива с помощью датчика случайных чисел; кол-во элементов массива введите с клавиатуры).

Ответы 1

  • // PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!// Программа №1begin   var mas:=ArrRandom(20,-99,99); mas.Println;   Writeln('сумму  с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);end.// Программа №2begin   var n:=readinteger('n=');    var mas:=ArrRandom(n,-99,99); mas.Println;   Writeln('элементы < 5');   mas.Where(t->t<5).Println;   end.//Программа №3begin   var n:=readinteger('n=');    var mas:=ArrRandom(n,-99,99); mas.Println;   Write('Сумма=');   mas.Where(t->t mod 10 = 3).Sum.Println;   end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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