Дан массив из N целых чисел. Написать программу, определяющую, максимальный элемент массива и его номер.

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.