Язык программирования Pascal/Basic .

Ответы:

Забавная задача.

Массив[1..10,1..10] из чисел 10..99(для удобства вывода).

Выводит:

Исходный массив,

Числа под побочной диагональю,

минимальное число под побочной диагональю.

program test,

uses crt,

const

  n=10,

var

  arr:array[1..10,1..10] of integer,

  i,j,min:integer,

begin

  randomize,

  clrscr,

  for i:=1 to n do

    begin

    for j:=1 to n do

      begin

      arr[i,j]:=random(90)+10,

      write(arr[i,j], ),

      end,

    writeln,

    end,

 

  writeln,

 min:=arr[n-n+2,n],

  for i:=1 to n do

   begin

   for j:=1 to n do

     if i&gt,n+1-j then

      begin

        if arr[i,j]&lt,min then min:=arr[i,j],

        write(arr[i,j], ),

      end

     else write(** ),

   writeln,

   end,

 writeln,

 writeln(min),

end.