Question

ДАЮ 80 БАЛЛОВ

Составить программу на Паскале СРОЧНО!!!

1. Найти сумму всех элементов массива ( 5 элементов)
1)Ввод элементов массива
2)Вывод элементов массива

2. Уменьшить все элементы массива на 1

3. Подсчитать количество нулей

Всё это сделать ёмко и в одной программе, заранее благодарю.

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.