Линейные Массив

[Gevorg7]

Помогите пожалуйста))
надо создать программу четырьмя способами.
Найти сумму отрицательных и произведение положительных элементов массива.
1) for i:=1 to n do
2) while <усл> do
3) for i:=n downto 1 do
4)repeat
<опер 1>
<опер2>
until <усл>
первый вариант я сделал а остальные не получается :conf used:

1)

uses crt;
var
mas:array[1..10] of integer;
n,i,b,a,k,s,v,vn:integer; c,p:real;
begin
clrscr;
write('Введите количество элементов массива'); read(a);
s:=0;
p:=0;
vn:=1;
for i:=1 to a do 
begin
b:=2+b;
gotoxy(b,2);write('элемент=');
b=8+b;
gotoxy(b,2); read(mas[i]);
if mas [i]<0 then v:=v+mas[i];
if mas [i]>0  then vn:=vn+mas[i];
end;
writeln('1сумма отрицат.  эл. массива=');
write ('2произведение положительных элементов массива=');
readkey;
end.

[Shift_sk]

var a:array[1..100] of integer;
    i,n,s,sn:integer;
begin
read(n);

for i:=1 to n do
read(a[i]);
i:=1;
while i<=n do begin
if a[i]<0 then s:=s+a[i];
if a[i]>0 then sn:=sn+a[i];
i:=i+1;
end;
write(s,' ',sn);
end.

var a:array[1..100] of integer;
    i,n,s,sn:integer;
begin
read(n);

for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then s:=s+a[i];
if a[i]>0 then sn:=sn+a[i];
end;
write(s,' ',sn);
end.

var a:array[1..100] of integer;
    i,n,s,sn:integer;
begin
read(n);

for i:=1 to n do
read(a[i]);
i:=0;
repeat
i:=i+1;
if a[i]<0 then s:=s+a[i];
if a[i]>0 then sn:=sn+a[i];
until i=n;
write(s,' ',sn);
end.

[Stilet]

if a[i]>0 then sn:=sn+a[i];

Читай внимательнее:

произведение положительных элементов массива.

Так что там не + а *

[Gevorg7]

спасибо огромное ВСЕМ !!!!!!!!!

[Shift_sk]

Сообщение от Stilet

Читай внимательнее:
Так что там не + а *

все правильно вроде!

[Stilet]

все правильно вроде!

Значит я туплю?

Найти сумму отрицательных и произведение положительных элементов массива.

Произведение это умножение. верно?
Смотрим в код. Знак умножения в Паскале это *. Где он в коде? Не вижу. Или у меня глюки?

[Shift_sk]

все я понел!посмотрел не внимательно!
закрывай тему!