program Project1; {$APPTYPE CONSOLE} var a:array[1..100] of integer; i,k,n,max:integer; begin writeln('Vvedit kilkist elementiv v masyvi A[1..n]'); readln(n); for i:=1 to n do begin writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end; max:=a[1];k:=1; for i:=1 to n do begin if a[i]>max then begin max:=a[i];k:=i;end;end; writeln('Naybilshyi element v masyvi A e ',max,' yogo index ',k); readln; end.