Дан двумерный массив a, размером (nn) (или квадратная матрица а). Найти количество...

Question

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

Answer 1

Program chik;
var n,i,k,j:integer;
a:array[1..100,1..100]of real;
x:real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln('Введите x');
readln(x);
k:=0;
for i:=1 to n do
for j:=1 to n do
if(a[i,j]=x)and(i+j<=n)then k:=k+1;<br>writeln(k);
end.