Определить максимальный элемент масива и его порядковый номер
В паскали

var ar:array[1..10] of integer;a,max,i:integer;beginrandomize;Writeln('Array:');for a:=1 to 10 dobegin;ar[a]:=random(100);writeln(ar[a]);if max<ar[a] thenbegin;max:=ar[a];i:=a;end;end;Writeln('Max:',max);Writeln('Number:',i);end.