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. Напечатать массив в порядке убывания значений его элементов. Алгоритм реализуется при помощи двух вложенных циклов (рис. 17). В наружном цикле последовательно перебираются числа 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
