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

Question

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

Answer 1

Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
end.