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