Составить приложение на языке pascal. с пк произвести обработку одномерного массива, заданного в таблице. элементы одномерного массива задать числами в диапазоне – 20 . . +50. необходимо:  описать массив;  ввести элементы массива из заданного диапазона;  выполнить с элементами массива действия, заданные в таблице;  вывести результаты на экран.

===== PascalABC.NET =====

begin

 var n := 14;

 var a := ReadArrInteger(n);

 for var i := 0 to n div 2 -1 do

   Print(a[i], a[n-i-1])

end.

// Это комментарии и они не влияют на выполнение программы

var
num1:Integer; //число 1
num2:Integer; //число 2
num3:Integer; //число 3
summ:Integer; //сумма

begin
writeln('введите три числа');
read(num1, num2, num3); //вводим три числа

if (num1 mod 10 = 1) and (num1 mod 7 = 0) then
//при делении на 10, остаток это будет последней цифрой
//затем проверям кратно ли num1 7, если да то прибавляем его к сумме
summ:=summ+num1;

//тоже самое выполняем с num2
if (num2 mod 10 = 1) and (num2 mod 7 = 0) then
summ:=summ+num2;

//и num3
if (num3 mod 10 = 1) and (num3 mod 7 = 0) then
summ:=summ+num3;

write('Сумма: ',summ);//выводим сумму
end.

А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  дрожжи, процент, расход, дней: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  дрожжи := 120;
  Вывод.Цепь("p: "); процент := Приём.Число();
  Вывод.Цепь("Tx: "); расход := Приём.Число();
  Вывод.Цепь("Tt: "); дней := Приём.Число();
  ОТ сч := 1 ДО дней ВЫП
    дрожжи := дрожжи + дрожжи * (процент / 100) - расход
  КОН;
  Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)

КОН Задание.