{ Поиск максимального элемента в массиве }
var a: array[1..10] of integer;
max: integer;
i: integer;
begin
writeln('Введите 10 элементов массива:');
max := -(MaxInt + 1);
for i := 1 to 10 do begin
readln(a[i]);
if max < a[i] then max := a[i];
end;
writeln('Максимальный элемент массива = ', max);
end.
