C :

#include<stdio.h>
int main()
{
	int n,m[1000];
	int i, j, k;
	int max, min;
	scanf("%d", &n);
	for ( i = 0; i < n; i++)
	{
		scanf("%d", &m[i]);
	}
	max = min = m[0];
	for (j = 0; j < n; j++)
	{
		if (m[j] > max)
			max = m[j];
	}
	for (k = 0; k < n; k++)
	{
		if (m[k] < min)
			min = m[k];
	}
	printf("%d %d\n", max, min);
}

Pascal :

var
a:array[1..1000]of integer;
n,i,z,x:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
z:=a[1];x:=a[1];
for i:=1 to n do
begin
if z<a[i] then z:=a[i];
if x>a[i] then x:=a[i];
end;
writeln(z,' ',x);
end.