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