С клавиатуры в режиме диалога вводится вещественный массив (максимальная размерность 25). Найти количество нулевых элементов, расположенных на побочной диагонали до первого отрицательного элемента.
Задача выполнена на Pascal. Формула элементов матрицы, лежащих на побочной диагонали j=n-i+1, i – номер строки, j – номер столбца.

program massiv;

var a: array [1..25, 1..25] of real;

k, p: real;

i, j, n: byte;
begin
repeat

writeln (‘введите размерность ‘);
readln (n);

until (n>=1) and (n<=25);

for i:=1 to n do

for j:=1 to n do

begin

write ( ‘введите элементы массива ‘, i, j, ‘:’);
readln (a[i, j]);

end;

for i:=1 to n do

begin

for j:=1 to n do

write ( a[i, j]:6 :2);
writeln;

end;

k:=0;

for i:=1 to n do

for j:=1 to n do

begin

if (j=n-i+1) and (a[i,j]=0) then

k:=k+1;

if (j=n-i+1) and (a[i,j]<0) then

break;

end;
writeln (k);

end.