Question

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

Answer 1

Ответ:

program z;

var m:array [1..15] of integer;

i,s,a,b:integer;

begin

for i:=1 to 15 do

begin

write ('Введите ',i:2,' элемент массива: ');

readln (m[i]);

end;

s:=0;

write ('b = ');

readln (b);

write ('a = ');

readln (a);

write('Номера элементов не равных нулю, больших ',b,' и меньших ',a,': ');

for i:=1 to 15 do

if (m[i]<>0) and (m[i]>b) and (m[i]<a) then

begin

write(i,' ');

s:=s+m[i]

end;

writeln;

write('Сумма элементов массива не равных нулю, больших ',b,' и меньших ',a,': ',s)

end.

Объяснение:

для ввода элементов используем цикл со счётчиком: for i:=1 to 15 do

для определения элементов, которые удовлетворяют поставленному условию используем составное условие в неполном операторе ветвления: if (m[i]<>0) and (m[i]>b) and (m[i]<a) then