Поиск максимума, минимума в массиве.
материал для подготовки к егэ (гиа) по информатике и икт (9 класс)

{ Поиск минимального элемента в массиве }

const n = 10;

var a:array[1..n] of integer;

    min:integer;

    i:integer;

begin

for i:=1 to n do  readln( a[i] );

   min:=a[1];

for i:=2 to n do  

   if a[i] < min then min:=a[i];

writeln( 'min = ', min );

end.

{ Поиск максимального элемента в массиве }

const n = 10;

var a:array[1..n] of integer;

    max:integer;

    i:integer;

begin

for i:=1 to n do  readln( a[i] );

   max:=a[1];

for i:=2 to n do  

   if a[i] > max then max:=a[i];

writeln( 'max = ', max );

end.