Напишите массив в паскале

Question

Напишите такую команду в паскале, чтобы она запросила кол-во элементов, попросила указать их значения, а затем поделила ВСЕ элементы на минимальный(включая его), и вывела результаты в таком порядке, в каком были даны исходные данные.

Николай Вавилов · Accepted Answer

readln(n); 
for k:=1 to n do readln(A[n]); 
min:=A[1]; 
for k:=1 to n do if A[k] < min then min:=A[k]; 
for k:=1 to n do begin A[k]:=A[k]/min; write(A[k], ' ');end;