ПАСКАЛЬ
составьте программу вычисления максимального вычисления в массиве A и его индексов

Ответ:

Var i,max:integer;

A:array [1..10] of integer;

Begin

Max:=0;

For i:=1 to 10 do

Begin

Read(a[i]);

If a[i] > max then max:=a[i];

End;

Write(max);

End.