С помощу 17 мищц челюсти и язика
6..................................................
<span>Делении переводимого числа на основание новой системы счисления</span>
Программа и скриншот результата в приложениях.
program massive;
var i,j,s,min,n:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
min:=999;
for i:=1 to n do
if A[i]<min then begin
min:=A[i];
s:=i;
end;
for j:=2 to i do
if j mod 2=0 then A[j]:=0;
for i:=1 to n do
write(A[i],' ');
end.