Информатика Практика / 21

Program praktika21;
Uses CRT;
Const n=5;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_max, v_min, max, min: Integer;
Begin
WriteLn('Задайте диапазон случайных чисел:');
Write('v_min = ');
ReadLn(v_min);
Write('v_max = ');
ReadLn(v_max);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
a[i,g]:=Random(v_max-v_min+1)+v_min;
End;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
max:=a[1,2];
min:=a[n,1];
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If ((i<g) and (a[i,g]>max))
Then max:=a[i,g];
If ((i>g) and (a[i,g]<min))
Then min:=a[i,g];
End;
End;
WriteLn;
WriteLn('максимальный элемент выше главной диагонали = ', max);
WriteLn;
WriteLn('минимальный элемент ниже главной диагонали = ', min);
ReadLn;
End.