Дан массив. Все его элементы умножить на последний элемент.

const

n = 10; / / количество элементов массива

var

a: array [1 ... n] of real;

i: integer;

begin

for i: = 1 to n do

begin

writeln ('Введите ', i, ' элемент массива') ;

readln (a[i]) ; / / вводим очередной элемент массива

end;

write ('Исходный массив: ') ;

for i: = 1 to n do

write (a[i], ' ') ; / / Выводим исходный массив

writeln; / / Перевод на новую строку

write ('Полученный массив: ') ;

for i: = 1 to n do

begin

a[i]: = a[i] * a[n]; / / элемент массива умножаем на последний элемент

write (a[i], ' ') ; / / выводим полученный элемент массива

end;

end.