Question

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

Answer 1

Ответ:

var

x:array[1..15]of integer;

h,a,b,i,s:integer;

begin

s:=0;

readln(b,a);

 for i:=1 to 15 do begin readln(h); x[i]:=h; end;

 

for i:=1 to 15 do begin

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

       s:=s+x[i];end;

writeln(s)

end.

Объяснение:

попроси свою учительницу поставить вам python и пишите на python, чисто дружеский совет