ЯковПервый Алг
нач
цел N = 5
цел i, index
вещ minimum
вещтаб mas[1:N]
вывод "Введите 1 элемент: "
ввод mas[1];
mas[1] := mas[1] * 2
minimum := mas[1]
index := 1;
нц для i от 2 до N
вывод "Введите ", i, " элемент: "
ввод mas[i]
mas[i] := mas[i] * 2;
если mas[i] < minimum то
minimum := mas[i]
index := i;
всё
кц
вывод нс, "Обработнный массив:", нс, нс
нц для i от 1 до N
вывод "Элемент ", i, " = ", mas[i], нс
кц
вывод нс, "Минимальный элемент: A[", index, "] = ", minimum
кон