Сумма элементов преобразованного массива

[0001]

TURBO PASCAL .Массив L = (–2, 6, –8, 9, –5, 12, 0) преобразован к виду L = (1, 9, –5, 12, –2, 15, 3). Размер массива L - 36 элементов из диапазона [–31,31]. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–8, 25]. а как вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–8, 25]?спасибо

uses crt;
const kol_el=36;
type mas=array [1..kol_el] of integer;
var T:mas;
Procedure Preobr(var a:mas);
var i:integer;
begin
for i:=1 to kol_el do
a[i]:=a[i];
end;
Function Sum(b:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to kol_el do
s:=s+b[i];
sum:=s;
end;
var i:integer;
Begin
clrscr;
Randomize;
for i:=1 to kol_el do begin
T[i]:=Random(63)-31;
write(T[i]:4);
end;
Preobr(T);
writeln;
writeln;
for i:=1 to kol_el do
write(T[i]:4);
write(#13,#10,#10,'Summa elementov=',Sum(T));
End.

[Сергeй]

Сделаю за 100 WMR

[Stilet]

0001

Не ну вообще в цикле по массиву:

if T[i] in [–8, 25] then summ:=summ+T[i];

[val_nnm]

я бы сделал так

заменил

for i:=1 to kol_el do
s:=s+b[i];

на

for i:=1 to kol_el do
  if (b[i]>=-8) and (b[i]<=25) then
    s:=s+b[i];

и ещё хочу обратить внимание что в вашей процедуре преобразования ровним счётом никаких преобразований не происходит. Массив остаётся такимже каким он был до.

А из вашего задания не доконца понятно как преобразовывать массив. (в примере вы добавляете число 3 к каждому элементу массива) Это чило постоянно и равно 3? или оно вычисляется?

[val_nnm]

Ну тогда очевидно по приведённому вами примеру к каждому элементу массива прибавляется число 3.

Тогда в вашем примере нужно заменить

a[i]:=a[i];

на

a[i]:=a[i]+3;

хотя вообще здесь возможно придумать бесконечное количество способов преобразования.
например можно к каждому элементу добавлять не просто число 3 а значение второго элемента разделённого на два. или например корень квадратный из четвёртого элемента. И.т.п.

[Stilet]

0001

Один вопрос - одна тема.
Перенес последний твой пост в новую тему, эту закрываю