Question

дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)

Answer 1

const
    n = 5;   // Размер матрицы

var
   i, e, r: Integer;
   m : array [1..n, 1..n] of Integer;
begin

 

   for i:= 1 to n do
      for e:= 1 to n do
      begin
         //m[i, e] := Random(101) - 50;                // Заполнение случайными числами
         Write('m[',i,',',e,'] = '); Readln(m[i, e]);    // Ручной ввод матрицы
      end;

   r := n;
   for i := 1 to n do
   begin

      if m[i, r] >= 0 then
         Write(m[i, r], ' ');

 

      dec(r);
   end;

   Readln;
end.