напишите программу, печатающую максимальный элемент пустого массива

Подозреваю, что неверно сформулирован вопрос, может НЕ пустого массива?
Тогда (Pascal ABC):

program maxel;
const m=100; // количество элементов массива
var mass: array[1..m] of integer; // в принципе может быть любого численного значения
i,max:integer;
Begin
//заполняем массив, так как ограничения на метод ввода нет, то заполняем случайными числами
Randomize;
for i:=1 to m do
mass:=Random(100);
//Собственно, само решение - находим максимальный элемент.
max:=mass[1];
for i:=2 to m do
if mass>max then max:=mass;
WriteLn(max);
End.

отпечатай первый элемент

Боюсь печатать она будет всегда ничаво !

Подсчетайте цену картошки неизвесного веса?