Поиск минимального/максимального элемента в массиве — Pascal(Паскаль)

Ниже представлен пример поиска минимального и максимального элемента в одномерном массиве на языке Pascal . В программе используются стандартные константы языка Free Pascal

MaxInt содержит самое большое целое число (32,767)
MaxLongint содержит самое большое двойное целое (2,147,483,647)

var a:array[1..5] of integer;
    min:integer;
    max:integer;
    i:integer;
begin
     writeln('введите 5 элементов массива');
     min:=MAXINT;
     max:=not(MAXINT);
     for i:=1 to 5 do begin
        readln( a[i] );
        if min>a[i] then min:=a[i];
        if max<a[i] then max:=a[i];
     end;
     writeln( 'Минимальный элемент массива = ', min );
     writeln( 'Максимальный элемент массива = ', max );
end.

Ниже представлен пример поиска минимального и максимального элемента в двумерном массиве на языке Pascal . Дополнительно подключение генератор простых чисел для быстрого заполнения данных.

var a:array[1..3,1..3] of integer;
    min:integer;
    max:integer;
    i,j:integer;
begin
     randomize;
     writeln('Искомый массив 3 на 3');
     for i:=1 to 3 do 
        for j:=1 to 3 do begin
            a[i,j]:=random(100);
            if j<>3 then write(' ', a[i,j]) else writeln(' ',a[i,j]);
     end;
     
     min:=MAXINT;
     max:=not(MAXINT);
     for i:=1 to 3 do 
        for j:=1 to 3 do begin
        if min>a[i,i] then min:=a[i,j];
        if max<a[i,j] then max:=a[i,j];
     end;
     writeln( 'Минимальный элемент массива = ', min );
     writeln( 'Максимальный элемент массива = ', max );
end.

Поделитесь своим мнением или задайте вопрос