1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program test;
var
a:array[0..15] of integer;
s,c,p:integer;
i:byte;
begin
s:=0;c:=0;p:=1;
//Заполняем значениями
for i:=0 to 15 do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if a[i]>0 then c:=c+1;
if a[i]<>0 then p:=p*a[i];
end;
writeln('Сумма:',s);
writeln('Количество:',c);
writeln('Произведение:',p);
readln(s);
end.