Var
com:array[1..1000] of integer;
i,max :integer;
beginmax:=0;
for i:=1 to 10 do begin readln(com[i]);
if maxend;
writeln('max=',max);
end.
алгоритм
вводим числа в массив
переменную max приравниваем 0
перебираем все числа в массиве через цикл
цикл
нач.
если число com[i] меньше max то max равен com[i]
кон.
выводим макс