Дан
двумерный массив a,
размером (nn)
(или квадратная матрица а). Найти
количество элементов, равных заданному
числу х и расположенных в верхней
треугольной матрице, расположенной
выше побочной диагонали, исключая саму
побочную диагональ. на паскале надо..

program chik;var n,i,k,j:integer;a:array[1..100,1..100]of real;x:real;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);writeln('Введите x');readln(x);k:=0;for i:=1 to n dofor j:=1 to n doif(a[i,j]=x)and(i+j<=n)then k:=k+1;writeln(k);end.