Берем и проходим циклом.
var
sum, i, n : integer;
//i - счетчик, в sum - сумма )
begin
read (n);
sum := 0; //Надо обязательно обнулить
for i := 1 to n do
sum := sum + i;
//Таким образом к сумме будут добавлены 1, при следующей интерации 2, и так далее до N
writeln (sum);
end.
Постарался объяснить...
...............................................
1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 do
begin
if a<0 then z:=-z;
readln(a);
end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.
Пример:
12
-45
-87
-20
0
<span>Произведение отрицательных чисел отрицательно
2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
begin
readln(x);
if x>a then s:=s+x
end;
writeln('s = ',s);
end.
Пример:
5 30
48
15
80
29
32
<span>s = 160</span></span>
54135256474
22561313165461313232333333 вот ответ