Условие задачи
Составьте на языке программирования Паскаль программу для обработки массива из 15 чисел. Значения элементов массива задайте путём ввода с клавиатуры. Входные данные придумайте самостоятельно. Вычислите сумму элементов массива, не равных нулю, больших b и меньших а. Напечатайте номера элементов, которые удовлетворяют поставленному условию. Значения переменных a и b задайте самостоятельно.
Ответ
Код программы:
var arr: array [1..15] of integer;
i, a, b, sum: integer;
begin
sum := 0;
// задаем значения a, b, элементов массива
write('Введите b = ');
read(b);
write('Введите a = ');
read(a);
writeln('Введите массив:');
for i := 1 to 15...
Потяни
