Программа дана на языке программирования Паскаль. Запиши программу и выполнить. program z1; var mas, A: array[1..10

Карамелька

7

Конечно! Вот программа на языке программирования Паскаль, которая выполняет данную задачу:

pascal

program z1;



var

  mas, A: array[1..10] of real;



begin

  mas[1] := 14;

  mas[5] := 30;

  mas[9] := 82;

  A[1] := (mas[9] - mas[1]) * mas[5];

  write(A[1]:5:0);

  readln;

end.

В этой программе мы объявляем два массива: `mas` и `A`, каждый из которых содержит 10 элементов типа real (то есть числа с плавающей точкой).

Затем мы присваиваем значения элементам массива `mas`: mas[1] = 14, mas[5] = 30, mas[9] = 82.

Далее мы вычисляем значение элемента массива A[1] по формуле `(mas[9] - mas[1]) * mas[5]`. Эта формула вычисляет разницу между элементами mas[9] и mas[1] и умножает результат на элемент mas[5].

Наконец, мы выводим значение A[1] на экран с помощью функции write. Здесь `:5:0` означает, что число будет выведено с шириной поля 5 символов и без десятичных знаков.

После вывода значения программой будет ожидаться ввод с клавиатуры, чтобы программа не закрылась сразу после выполнения.

Надеюсь, это понятно.