Pascal , нужно 1 задачки решить!

[Photolife]

На счёт первой ,всё сделал но сумму не считает(

var
b: array[1..50] of integer;
  x, y ,i   : integer;
begin
x:=1;
y:=0;
for i:=1 to 50 do
begin
write('b[',i,']=');
readln(b[i]);
end;
for i:=1 to 50 do
  if b[i]>0 then
    begin
      x:=x*b[i];
      y:=y+1;
    end;
writeln( x);
writeln(y);
end.

[Hacker19_90]

 y:=y+1;

Измените на

y := y + b[i];

[Photolife]

всё равно не считает, ибо изменили счётчик

[Hacker19_90]

Какой счётчик?

[Photolife]

y:=y+1; это счётчик который считает сколькокол положительных элементов

[Hacker19_90]

ну значит для поиска суммы вы просто код!
ПИШИТЕ!

[Photolife]

задание прочтите!

[Photolife]

Всё разобрался у суммы тип данных не позволял выводить большие числа! а вторую так и не осилил

[Hacker19_90]

Всё разобрался у суммы тип данных не позволял выводить большие числа! а вторую так и не осилил

Чего? Какие большие числа?
И какой тип данных у вас для суммы был! И покажите мне пожалуста в коде где у вас сумма ищется?

[Photolife]

Произведение элементов

x:=x*b[i];

кол-во этих элементов
y:=y+1;

тип был интеджер, поставил реал для произведения и всё пошло!