Question

ДАЮ 80 БАЛЛОВСоставить программу на Паскале СРОЧНО!!!1. Найти сумму всех элементов массива ( 5 элементов)1)Ввод элементов массива2)Вывод элементов массива2. Уменьшить все элементы массива на 13. Подсчитать количество нулейВсё это сделать ёмко и в одной программе, заранее благодарю.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger('Введи 5 чисел:', 5);

 Print('Введено:');

 a.Println;

 Println('Сумма чисел равна', a.Sum);

 a.Transform(p -> p - 1);

 Print('Уменьшили элементы на 1:');

 a.Println;

 Println('Количество нулей:', a.Count(p -> p = 0))

end.