ПАСКАЛЬ составьте программу вычисления максимального вычисления в массиве A и его индексов
Ответ:
Var i,max:integer;
A:array [1..10] of integer;
Begin
Max:=0;
For i:=1 to 10 do
Read(a[i]);
If a[i] > max then max:=a[i];
End;
Write(max);
End.