Составьте на языке программирования Паскаль программу для обработки массива из 15 чисел. Значения элементов массива задайте путём ввода с клавиатуры. Входные данные придумайте самостоятельно. Вычислите сумму элементов массива, не равных нулю, больших b

25 июля 2024
Информатика

Условие:

Составьте на языке программирования Паскаль программу для обработки массива из 15 чисел.

Значения элементов массива задайте путём ввода с клавиатуры. Входные данные придумайте самостоятельно. Вычислите сумму элементов массива, не равных нулю, больших b меньших а. Напечатайте номера элементов, которые удовлетворяют поставленному условию. Значения переменных а и 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,...