C :

#include <stdio.h>

int imax(int array[], int n);
int imin(int array[], int n);

int main()
{
	int n;
	scanf("%d",&n);
	int array[n];
	for( int i=0; i<n; i++ ){
		scanf("%d",&array[i]);
	}
	
	imax(array,n);
	imin(array,n);
	 
	return 0;
}

int imax(int array[], int n)
{
	int i;
	int max = array[0];
	for( i=1; i<n; i++ ){
		if( max<array[i] ){
			max = array[i];
		}
	}
	
	printf("%d\n",max);
}

int imin(int array[], int n)
{
	int i;
	int min = array[0];
	for( i=1; i<n; i++ ){
		if( min>array[i] ){
			min = array[i];
		}
	}
	
	printf("%d\n",min);
}

C++ :

#include<iostream>
using namespace std;
int imax(int array[100],int count){
	int i,t,max=array[0];
	for(i=1;i<count;i++){
		if(max<array[i]){
			t=max;
			max=array[i];
			array[i]=t;
		}
	}
	return max;
}
int imin(int array[100],int count){
	int i,t,min=array[0];
	for(i=1;i<count;i++){
		if(min>array[i]){
			t=min;
			min=array[i];
			array[i]=t;
		}
	}
	return min;
}
main(){
	int count,i,m,array[100];
	cin>>count;
	for(i=0;i<count;i++){
		cin>>m;
		array[i]=m;
	}
	cout<<imax(array,count)<<'\n'<<imin(array,count);
	return 0;
}

Pascal :

var a:array[1..99999]of longint;
    i,j,n,t:longint;
begin
  readln(n);
  for i:=1 to n do
  read(a[i]);
  for i:=1 to n-1 do
   for j:=i+1 to n do
   if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
   writeln(a[1]);
   writeln(a[n]);
end.