Дано двовимірний масив D(3*4) цілих чисел. Знайти кількість відємних та кількість додатніх елементів масиву.

var d,v,i1,i2:byte;a:array[1..3,1..4] of integer;beginfor i1:=1 to 3 dofor i2:=1 to 4 dobeginread(a[i1,i2]);if a[i1,i2]>=0 then d:=d+1; else v:=v+1;end;writeln('Dodatnih - ',d,' Vidyemnuh - ',v);end.