Помогите пожалуйста написать программку на паскале!!! Даны целые числа н (нamp;gt;0),

т.е. отыскать наименьший член из массива и домножить все члены последовательности на него?

если правдиво, я сам не сообразил задания

Я понял теснее

получается домножить все члены на этот наименьший до самого наименьшего

окейй

ожидай

получается что не все члены будут множиться на этот меньший? либо как?

Да да

До наименьшего

сейчас понятно)а то написано как то замудренно

Var n,a,b,i,min:integer;
mass:array[1..100000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
writeln('Введите числа');
for i:=1 to n do// задаем массив пока i не станет одинаково n (i:=i+1 )
read(mass[i]);//считываем массив с индексом i
min:=mass[1];// означаем первый элемент массива за первый
b:=1;// индекс от первого элемента массива
for i:=1 to n do//цикл задаем массив пока i не станет равно n (i:=i+1 )
if mass[i]lt;min then begin//при условии что массив будет меньше первого числа то
b:=i;// означаем индекс
min:=mass[i];// означаем новый малый массив
end;
for i:=1 to b-1 do// задаем массив пока i не станет равно b-1 (i:=i+1 ); и еще b-1 означает чтобы само число b не входило в цикл
mass[i]:=mass[i]*mass[b];// домножаем на меньший массив
writeln('Приобретенный массив');// вывод массива
for i:=1 to n do
write(mass[i]:6);
end.