Составьте программу которая запрашивает значения элементов одномерного…

program z1; uses crt; var m: array[1… 10] of integer; i,a,b,c: integer; beginfor i: =1 to 10 doreadln (m[i]); writeln; a: =0; b: =0; c: =1; for i: =1 to 10 do begin if m[i] <= 0 then a: =a+m[i]; if m[i] mod 3=0 then b: =b+1; if i mod 2=0 then c: =c*m[i]; end; writeln (Сумма отриц',a); writeln (кратные 3',b); writeln (произв',c) end.