Составить программу в Паскаль АВС Найти максимальный элемент массива. Заменить все элементы после максимального нулями
См. файл во вложении
Ощущение, что кто-то передрал ранее написанную мной программу и выдал за свою)))