pascalabc.net
begin
var n : = readinteger('введи длину массива: ');
var a : = seqrandomreal(n, 1.0, 99.0).select(p -> round(p,;
a.println;
var m : = readinteger('задайте номер элемента');
if not (m in range(1, n)) then
begin
print('недопустимый номер');
exit
end;
var im : = a[: m].indexmin;
var min : = a[im];
swap(a[im], a[n-1]);
a.transform(p -> p / min);
a.println
end.
Поделитесь своими знаниями, ответьте на вопрос: