Дана матрица N x N, состоящая из натуральных чисел. Найти минимальный элемент побочной диагонали — Pascal(Паскаль)

uses crt;
type mas=array[1..10,1..10] of integer;
var a:mas;
i,j,min,n,p,t:integer;

procedure add(a:mas;n:integer);
var i,j:integer;
begin
 min:=a[1,n];
 for i:=1 to n do
 if a[i,N-i+1] < min then min:=a[i,N-i+1];
 writeln('MIN =  ',min);
end;
 
 
 
begin
clrscr;
randomize;
write('Vvedite n = ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10);
end;
writeln(' ');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
end;
begin
add(a,n);
end;
readln;
end.

Leave a Comment

8 + 1 =