var n,b,c,i:byte;
a:array[1..200] of byte;
s:word;
begin
s:=0;
write('Количество элементов: '); readln(n);
write('B: '); readln(b);
write('C: '); readln(c);
for i:=1 to n do begin
write(i,'-ый элемент: '); readln a;
if (a>b) and (a<c) then inc(s,a);
end;
end.
pascal. одномерные массивы.
решите пожалуйста задачу! очень срочно! буду очень признателен!!!
Найти сумму элементов массива A (n), значения которых лежат в диапазоне от В до С, т.е. В <А(I) < С.
проверяйте решение задачи в Т П 7
Найти сумму элементов массива A (n), значения которых лежат в диапазоне от В до С, т.е. В <А(I) < С.
проверяйте решение задачи в Т П 7