Квадратная матрица порядка N. Подсчитать количество чисел, не меньших заданного Р и лежащих на побочной диагонали и выше ее

[DEXTER322]

Задана квадратная матрица порядка N. Подсчитать количество чисел,
не меньших заданного Р и лежащих на побочной диагонали и выше ее.

[p51x]

Как пробовали? Какие ошибки выдал компилятор?

[newerow1989]

const n=10;
      k=8;
var p:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to n do
      For j:=1 to i do
         If p[i,j]>=k then
            s:=s+p[i,j];
   Writeln(s);
   Readln;
end.

[Serge_Bliznykov]

Сообщение от newerow1989

Такой ответ преподавателю понравится?

newerow1989, вряд ли..
судя по предыдущим двум темам TC, ему нужно программа на языке C

[newerow1989]

Так пусть автор переводит на свой язык

[Serge_Bliznykov]

Сообщение от newerow1989

Так пусть автор переводит на свой язык

пусть. я не возражаю.