uses crt;
var
i, size, num, max: integer;
a: array [1 .. 10000] of integer;
begin;
ClrScr;
writeln('Введите размер массива');
readln(size);
FOR i := 1 TO size do
begin
ClrScr;
writeln('Введите элементы массива');
readln(a[i]);
end;
max := a[1];
ClrScr;
writeln('Введенный массив');
FOR i := 1 TO size do
begin
writeln(a[i]);
IF a[i] > max THEN
begin
num := i - 1;
max := a[i];
end
end;
FOR i := 1 TO num do
begin
a[i] := 0;
end;
writeln('Сформированный массив');
FOR i := 1 TO size do
begin
writeln(a[i]);
end;
end.