Задачка на массив!

[soldm]

Народ помогите пожалуйста начинающему программисту решить задачку на Паскале
Вообщем надо создать массив целочисленных чисел 10 на 10 и вывести его на Экран, после найти сколько раз встречается число 5, а также сумму элементов массива. Я создал массив нашел сумму, а вот сколько раз встречается число 5 не могу написать что-бы выводило. Подскажите как это сделать... пожалуйста!
Вот файл программы.

[dr.Chas]

sum:=0;    k5:=0;
  for i:=1 to 10 do
    for j:=1 to 10 do
    begin
      sum:=sum+mas[i, j];
      if mas[i,j]=5 then inc(k5);
    end;

[puporev]

Держи обратно.

[soldm]

Спасибо большое все ОК)))
Для интереса еще подскажите плз можно ли, и если можно то КАК посчитать кол-во не чисел а цифр 5 в массиве?

[puporev]

uses crt;
var a:array[1..50]of integer;
    n,i,q:integer;
function Cifr(n:integer):byte;//пишем функцию, считающую цифры в числе
var k:byte;
begin
k:=0;
while n>0 do
  begin
    n:=n div 10;
    k:=k+1;
  end;
Cifr:=k;
end;
begin
clrscr;
randomize;
write('n=');readln(n);
q:=0;
for i:=1 to n do
  begin
    a[i]:=random(200);
    write(a[i],' ');
    q:=q+Cifr(a[i]);//считаем цифры в каждом числе и складываем
  end;
writeln;
writeln('Kol cifr=',q);
readln
end.

[soldm]

Спасибо

[soldm]

Хм... глянул сейчас по подробнее я имел немножко другое в виду.
Допустим тебе изначально выскакивает двумерный массив и комп подсчитывает сколько в нем цифр 8 допустем. ну к примеру был массив там
89 29 17 177
внизу пишет
кол-во цифр 7 - 3 шт.
Не могу догнать как это сделать)

[puporev]

Надо подробнее думать перед тем как пишешь.

uses crt;
var a:array[1..10,1..10]of integer;
    n,i,j,k:integer;
    s,t:string;
begin
clrscr;
write('n=');readln(n);
randomize;
s:='';
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(11)+7;
        write(a[i,j]:4);
        str(a[i,j],t);
        s:=s+t;
      end;
    writeln;
  end;
k:=0;
for i:=1 to length(s) do
if s[i]='7' then
k:=k+1;
write('Cifra 7 vstrechaetsa ',k,' raz');
readln
end.