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

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.

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.