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

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.

Объяснение:

Основные подходы к процессу программирования: объектный, структурный и модульный.

Демонстрационно-обучающая программа по математике «Скорость движения».

Компьютерная модель движения заряженной частицы в однородном магнитном поле.

Компьютерная поддержка решения алгебраических уравнений численными методами.

Компьютерная поддержка темы «Построение и преобразование графиков функций».

Компьютерное моделирование движения заряженной частицы в электростатическом поле.

Обучающая программа "Построение графика квадратичной функции".

Обучающее-контролирующая программа "Системы счисления".

Разработка программно-методического комплекса – "Графы в планиметрических теоремах и задачах".

Реализация алгоритмов выполнения операций над векторами средствами Borland Delphi.  

Решение систем уравнений методами Гаусса с использованием ЭВМ.

Создание графических образов математических объектов на языке Visual Basic.

Разновидности компьютерных вирусов и методы защиты от них. Основные антивирусные программ

Для стека:

const

 MAX_SIZE = 100;

var

 size, n: integer;

 stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 inc(size);

 stack[size] := a;

end;

procedure view;

var

 i: integer;

begin

 for i := 1 to size do

   write(stack[i], ' ');

 writeln;

end;

Для очереди:

const

 MAX_SIZE = 100;

var

 head, tail: integer;

 queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 queue[tail] := a;

 inc(tail);

end;

procedure view;

var

 i: integer;

begin

 for i := head to tail - 1 do

   write(queue[i], ' ');

 writeln;

end;

Объяснение:

Можно лучший , и учи C++