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