Задан одномерный массив целых чисел. Вывести все нечетные элементы массива Найти сумму...

Question

Задан одномерный массив целых чисел.
Вывести все нечетные элементы массива
Найти сумму нечетных элементов этого массива.
Найти количество нечетных элементов массива
Найти номер наименьшего элемента в массиве

Comments

На каком языке программирования ?

---

Pascal ABC

Answer 1

// PascalABC.NET 3.3, сборка 1636 от 10.03.2018

// Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(10,-99,99); mas.Println;

  var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;

  Writeln('сумма нечетных элементов =',t.Sum);

  Writeln('количество  нечетных элементов =',t.Count);

  Writeln('номер найменьшего элемента  =',mas.IndexMin+1);

end.

---