В чем проблема с 1-м заданием то?
примерно так:
Код:
for i:=1 to 10 do
begin
c[i]:=0;
for j:=1 to 10 do
if (arr[i,j] mod 5)=0 then c[i]:=c[i]+1;
end;
В результате получим массив с в котором будет записано кол-во элементов кратных 5 по каждой строчке.
ПС. если посчитает столбцы то в условии i и j поменяйте местами, давно с матрицами не возился не помню что там вначале, столбцы или строки
