ДАЮ 80 БАЛЛОВ

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

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

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

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

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

Ответ

Автор - BobbyFresnel

===== 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.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.