Question

помогите решить задачу на паскале!! пожалуйста
Дан массив X(T). Вычислить сумму положительных элементов массива с номерами меньшими 7, значение которых больших 15 (T³7) .

Answer 1

const t=10;
var
x: array [1..t] of integer;
s, i: integer;
begin
for i:=1 to t do
begin
x[i]:=random(51)-20;
writeln('x[', i, '] = ', x[i]);
if (x[i]>0) and (i<7) and (x[i]>15) then s:=s+x[i];
end;
writeln('Сумма равна ', s);
end.