Найти минимальный и максимальный элементы массивы(программку написать)

Question

Найти минимальный и максимальный элементы массивы(программку написать)

Answer 1

var  arr: array[1..100] of integer;  
i, n, max, min: integer;
begin  
max:=1;
 min:=1;  
readln(n);  
for i:=1 to n do  
 begin    
read(arr[i]);    
  if arr[i] > arr[max] then max:=i      
else if arr[i] < arr[min] then min:=i;  
 end;  
writeln;  
writeln('Минимальный: ', arr[min], '');  
writeln('Максимальный: ', arr[max], '');
end.