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

Question

Дан массив а от 1 до 10 определить 1)сумму и произведение положительных элементов 2)определить сумму и произведение и количество положительных элементов

Answer 1

S - сумма, D - произведение, k - количество.
Промежуток задан рандомно.
var a: array[1..999] of integer; var S, D, k: integer;
begin   
D := 1;   
for var i := 1 to 10 do begin
        a[i] := random(-3, 3);
        write(a[i] + ' ');
end;
writeln;
for var i := 1 to 10 do begin
     if a[i] > 0 then begin
         S += a[i];
         D *= a[i];
         k += 1;
     end;
end;
writeln(S + ' ' + D + ' ' + k + ' ');
end.