Дан массив из 10 элементов. Найдите максимальный элемент массива и его номер.

program zz1;

var mas:array[1 ... 10] of integer;

i, p, max:integer;

begin

for i:=1 to 10 do / /получаем исходный массив случайным образом от - 50 до 50

mas[i]:=random (101) - 50;

for i:=1 to 10 do

write (mas[i],' '); / /выводим полученный массив на экран

writeln; / /переходим на другую строку для вывода

for i:=1 to 10 do

if mas[i]>max then begin max:=mas[i]; p:=i; end; / /проверяем, если число из массива больше, чем в max, то это число записываем в max и запоминаем его номер в переменной р

write ('максимальный элемент=', max,' его номер=', p) / /выводим ответ

end.