Дан целочисленный массив а( отсортировать массив по убыванию, начиная с максимального элемента. паскаль.

Readln(n); for i : = 1 to n do   read(a[i]); for i : = 1 to n - 1 do   for j : = 1 to n - 1 do    if (a[i] < a[i + 1]) then begin b : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = b; end; for i : = 1 to n do write(a[i],' ');

1.

1) s : = (x1+x2)/2

2) dec(k) или  k: =k-1

3) inc(i) или i: =i+1

4) sum : = t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;   kt, kr, kk - количество тетрадей, ручек и карандашей) 

 

2.

а) значения функции y=х(в квадрате)

var y,x: real

 

б) площади прямоугольника

var a,b,s: real

 

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv: integer; st,so,sum: real

 

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

var kvt,kvr,kvk: integer; st,sr,sk,sum: real

Begin     var n : = 10;     var a : = arrrandom(n, -50, 50);           println('исходный массив: ');     a.println;         var nochanges: boolean;     repeat       nochanges : = true;       for var i : = 0 to n - 2 do           if a[i] > a[i + 1] then           begin             swap(a[i], a[i + 1]);             nochanges : = false;           end;     until nochanges;         println('отсортированный массив: ');     a.println; end.