На паскале. задан массив а размерности n случайным образом. найти: 1) произведение отрицательных элементов 2) количество элементов, кратных 3

program massiv;

var

a,b,i,n,d,e,s: integer;

m: array[1..n] of integer;

begin

readln(n);

for i: =1 to n do

readln(m[i]);

a: =1;

b: =0;

for i: =1 to n do

begin

if m[i]< 0 then a: =a*m[i];

if (m[i] mod 3 = 0) then b: =b+1;

end;

writeln(a,'     ',b);

end.

program p1; const n=10; var a: array[1..n] of integer; proizvedenie,i: integer; beginproizvedenie: =1; for i: = 1 to n do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; for i: = 1 to n do if a[i]< 0 then proizvedenie: =proizvedenie*a[i]; writeln('произведение = ', proizvedenie); end.

program p2; const n=10; var a: array[1..n] of integer; kolvo,i: integer; begin for i: = 1 to n do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; for i: = 1 to n do if a[i] mod 3=0 then kolvo: =kolvo+1; writeln('кратных трём элементов ',kolvo, ' штук'); end.