проверь, не застрял ли кардридж печати.
попробуй поменять режим печати на черно-белый или на цветной
самый очевидный, перезапустить принтер (хотя наверно попробывал думаю)
возможно дело в драйвере к принтеру, попробуй установить другой версии.
обычно кстати к принтерам делают софт с которого проще машиной, поищи мб есть.
если ранее небыло такой проблеммы при постоянном использовании, то перезапуск обычно решает проблемму.
еще как вариант( если печатаешь с пк а не на прямую), подключи принтер через другой порт usb
вроде все варианты перебрал, разве что кроме очевидной поломки внутренних частей принтера.а так все
begin
var a := MatrRandom(5, 5, 0, 2);
a.Println;
var Max := integer.MinValue;
var Count := 0;
for var i := 0 to 4 do
for var j := 0 to 4 do
if i + j > 4 then
begin
if Max < a[i, j] then
begin
Max := a[i, j];
Count := 1
end
else
if Max = a[i,j] then
Count += 1
end;
Write(Count)
end.