C++:

#Include

using namespace std;

int main()
{
   int N;
   cin >> N;
   int a;
   cin >> a;
   int max = a;
   for(int i = 1; i < N; i++)
   {
     cin >> a; 
     if(a > max) max = a;
   }
   cout << max << endl;
   return 0;
}

//Тут технически без массива(он не хранится в памяти программы), на самом деле он тут не особо нужен.

Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to  n do
  read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.