двухмерный массив целых чисел

[vaako]

Дан двухмерный массив целых чисел. В каждой его строке найти:
а) сумму отрицательных элементов;
б) количество четных элементов;
в) количество элементов, попадающих в промежуток от а до b (а < b).

[rubius2008]

...
for i:=1 to n do begin
 so:=0; kchet:=0; kab:=0;
 for j:=1 to m do begin
   if mas[i,j]<0 then so:=so+mas[i,j];
   if mas[i,j] mod 2=0 then kchet:=kchet+1;
   if (a<=mas[i,j])and(mas[i,j]<=b) then kab:=kab+1;
 end; 
 writeln('сумма отрицательных элементов: ',so,' в ',i,' строке');
 writeln('количество четных элементов: ',kchet,' в ',i,' строке');
 writeln('количество элементов, попадающих в промежуток от а до b: ',kab,' в ',i,' строке');
end;
...

[zzzzza]

Var a: array[1..100, 1..100] of integer;
i,j,s,k,k1,b,c: integer;
Begin
write('Vvedite znachenie promezhutka(Ot kakogo do kakogo): ');
read(b,c);
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=round(random(9)-8);
write(a[i,j],' ');
end;
writeln();
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
If (a[i,j]<0) then begin
s:=s+a[i,j];
end;
If (a[i,j] mod 2=0) then begin
k:=k+1;
end;
If (a[i,j]>=b) and (a[i,j]<=c) then begin
k1:=k1+1;
end;
end;
end;
writeln('Summa otric. chisel: ',s);
writeln('Kol-vo chet. chisel: ',k);
writeln('Kol-vo chisel popadaushix v promezhutok: ',k1);
end.

[Elena04]

Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.

[Hacker19_90]

Elena04 я повторяю! В ЧУЖУЮ ТЕМУ СО СВОИМИ ПРОБЛЕМАМИ ВЛАЗИТЬ ЗАПРЕЩЕНО!