Программа к задаче 11

CLS

INPUT "Введите число вкладчиков и процент ",N,P

DIM x(n,5)

FOR i=1 TO n

FOR j=1 TO 4

?"Введите остаток по вкладу номер" i "за" j "квартал ";

INPUT x(i,j)

NEXT j,i

s=0

?" Счет Остатки по кварталам ВСЕГО"

?" I II III IV"

FOR i=1 TO n

x(i,5)=х(i,4)+(р/100)*(х(i,1)+х(i,2)+х(i,3)+х(i,4))/4

PRINT USING "########"; i,x(i,1),x(i,2),x(i,3),x(i,4),x(i,5)

s=s+x(i,5)

NEXT

? "Сумма всех вкладов =" s;

? "Средняя величина вклада =" s/n

Задача 12. Сортировка чисел в массиве. Пусть имеется вектор чисел Х длиной N. Напечатать массив в порядке убывания значений его элементов. Алгоритм реализуется при помощи двух вложенных циклов (рис. 15). В наружном цикле последовательно перебираются числа X(i) в массиве и во вложенном цикле сравниваются со всеми оставшимися числами справа от данного X(j). Если выясняется, что какое-то из Х(i) меньше сравниваемого, они меняются местами – большее число становится на место меньшего. В программе для упрощения в качестве элементов массива взяты их номера i. Если вектор имеет длину четыре (Х(4)), то будет выполнена следующая последовательность перестановок чисел массива: 1,2,3,4; 2,1,3,4; 3,1,2,4; 4,1,2,3; 4,3,2,1.

Программа к задаче 12