Cpascal #4

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Найти минимальный элемент побочной диагонали матрицы A(n,m).

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

const n=8;
      m=10;

var a:array [1..n,1..m] of real;
    min:real;
    i,j:integer;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Writeln(' Матрица A:');
for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
        A[i,j]:=Random(100)-50.;
        Write(A[i,j]:7:2);
        end;
    Writeln;
    end;

Min:=A[1,m];

for i:=2 to n do if (A[i,m+1-i] < Min) then Min:=A[i,m+1-i];

Write('--------------------------------------------------------------------------------');
Writeln(' Ответ: ',Min:7:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.