ДАЮ 80 БАЛЛОВ
Составить программу на Паскале СРОЧНО!!!
1. Найти сумму всех элементов массива ( 5 элементов)
1)Ввод элементов массива
2)Вывод элементов массива
2. Уменьшить все элементы массива на 1
3. Подсчитать количество нулей
Всё это сделать ёмко и в одной программе, заранее благодарю.
Составить программу на Паскале СРОЧНО!!!
1. Найти сумму всех элементов массива ( 5 элементов)
1)Ввод элементов массива
2)Вывод элементов массива
2. Уменьшить все элементы массива на 1
3. Подсчитать количество нулей
Всё это сделать ёмко и в одной программе, заранее благодарю.
More Questions From This User See All
Answers & Comments
===== 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.