Решите пожалуйста легче некуда

[kirillbobo]

Составьте программу подсчитывающую сколько раз элемент C[i,i] двухмерного массива C(N,N) встречается в этом массиве.

[sheka]

раз " легче некуда", почему ж сам не решил? или хотя бы не попробовал?

[NSvirus]

они видимо думают, что если в названии темы будет эта фраза, то все рвут и мечут чтобы решить ее..

[ОДИНОЧЕСТВО В СЕТИ]

readln (k);
count:=0;
for i:=1 to n do
   for j:=1 to n do
 if c[i,j]= c[k,k] then inc(count);
writeln(count:4);

[kirillbobo]

я пробовал не как не прет, замучился уже, для вас программеро это же легко

[Gongled]

kirillbobo, может быть, тебе нужно это?

program pr2;
uses CRT;
const
  n = 5;
type
  ar2 = array[1..n,1..n] of integer;
var
  i, j, k, buf, a : integer;
  c : ar2;

begin
clrscr;
randomize;

// Задаём массив
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        c[i,j] := random(10);
        write(c[i,j]:4);
    end;
    writeln;
end;

for i:=1 to n do
begin
    // Нулим счётчик
    a := 0;
    // Временная переменная
    buf := c[i,i];
    for j:=1 to n do
    begin
        for k:=1 to n do
        begin
            // Проверять равенство у всех, кроме исходного числа
            if ((j<>i) or (k<>i)) and (c[j,k]=buf) then inc(a);
        end;
    end;
    // Выводим результат
    writeln('Чисел равных [',i,',',i,'] = ',buf,': ',a);
end;

end.

По большому счёту, можно избавиться от buf (заменив на c[i,i]). Не нужная переменная.
P.S. Я далеко не программист.