Question

В одномерном массиве состоящем из 10 целых элементов в интервале от -20 до 20 вычислить произведение положительных элементов

Answer 1

Const
N = 10;

type
Tmas = array [1..N] of longint;

var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i]>0 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.



пж как лучший