Все элементы массива поделить на заданное число

[aqquick]

Парни, только вникаю во всё это дело, помогите пожалуйста с решением данной задачи, спасибо!

Все элементы массива поделить на заданное число, а затем в полученном массиве поменять местами самый левый минимальный элемент с последним элементом.

[digitalis]

Начинай. Поможем.
Итак:

Program Lazy_student;
var
bems: array[1..10] of ?
......

Массив-то хоть какой: integer,real,char ? Я понимаю, что секретно. Но я никому не скажу
На занятиях хоть раз появлялся? Книжку открывать пробовал?

[aqquick]

digitalis, integer, ахаха, появлялся

[Aleksandr H.]

digitalis, ща о5 окажется не классика ТР, а АБЦ какой-то

[digitalis]

Сообщение от Aleksandr H.

АБЦ какой-то

У этого как бы языка есть свои поклонники, они за "какой-то" могут бока намять. Я уж боюсь про него худого слова сказать.
aqquick

появлялся

чтоб приятелей в пивную пригласить ?
Итак, имеем целочисленный массив. После деления (не div) он уже целочисленным не будет, так что лучше его определить как real. Ещё понадобится число, на которое делить, его тоже надо будет ввести. И организовать цикл. Слово знакомое?
Итак, "Поехали !", как говорит утилизатор Юрий Сидоренко . Начало я тебе уже накромсал.

Program Lazy_student;
const N=10;
var
bems: array[1..N] of real ;
divisor,val_min: real;
i,i_min: integer;
begin
   // Here is the input of the source data
for i := 1 to N do
begin
    Write ('Element  [',i,']';
    Readln (bems[i]) ;
......

Так и далее.
Поиск минимума можно втоптать прямо в цикл ввода, чтоб два раза не возвращаться (Казань взять).