Var a:array [1..12] of integer; i,s:integer; begin writeln('vvedite 12 chisel'); for i:=1 to 12 do readln(a[i]); writeln('massiv'); for i:=1 to 12 do write(a[i],' '); writeln(); for i:=1 to 12 do if abs(a[i])>15 then s:=s+1; writeln('kolichestvo elementov = ',s) end.