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;