Какое значение примет переменная k после выполнения фрагмента программы: i = 0: k = 0 for a = 1 to 19 i = 1 + i k = a + i next a и как выполнить это в exel?

Вот трассировка выполнения программы   i      k   1    2   2    4   3    6   4    8   5    10   6    12   7    14   8    16   9    18   10   20   11   22   12   24   13   26   14   28   15    30   16    32   17    34   18    36   19    38 чтобы выполнить этот фрагмент в vba следует открыть окно проекта microsoft visual basic, выбрать лист рабочей книги, ввести заголовок sub, затем нажать enter и в образовавшийся блок вставить свой код. далее запустить на исполнение, нажав f5

Не сказано, как хранятся данные. допустим f[1..15] - фамилия, r[1..15] - рост readln(newr); for i: =1 to 15 do   if r[i]< newr then writeln(f[i]); ручной ввод: var   i,newr: integer;   f: array[1..15]of string;   r: array[1..15]of integer; begin writeln('введите фамилии и рост (в см) по убыванию'); for i: =1 to 15 do   begin   write('фамилия: ');   readln(f[i]);   write('рост (в см): ');   readln(r[i]);   end; writeln('введите рост (в см) нового уч-ка, не ни с кем'); readln(newr); for i: =1 to 15 do  if r[i]< newr then writeln(f[i]); end.

#include  < iostream> #include < cstdio> #include < cmath> int  main() { //объявление переменных, освобождение памяти под динам.массив int i=0,n=0,c=0,max=0,k=0; double p=1.0; cin> > n,c; double *massop = new  double [n]; double *mass = new double[n]; //узнаём числа> c, а заодно и значение  максимума по модулюfor (  i = 0; i < n; i++) { cin> > massop[i]; if (massop[i]> c) k++; if (fabs(massop[i])> max||fabs(massop[i])=max) max=fabs(massop[i]); } cout< < k< < '"  элементов больше с"< < endl; //находим первый максимальный эл-т //больше с  не нужно, возьму под другие нужды for (i  =  0; i< n; i++) { if (fabs(massop[i])=max) break; } c=i; //начиная с этого элемента находим произведение последующих for (i  = c; i< n; i++) { p=p*massop[i]; } cout< < "произведение чисел  после максимального по модулю элемента:   "< < p< < endl; //и снова с на левые цели c=0; //заполняем начало массива mass отрицательными элементами из massop for (i=0; i< n; i++) { if  (massop[i]< 0) mass[c]=massop[i]; c++; } //а конец-положительными for (i=0; i< n; i++) { if  (massop[i]> 0||massop[i]=0) mass[c]=massop[i]; c++; } //выведем, что вышло после упорядочивания for (i=0; i< n; i++) { cout< < mass[i]< < '/n'; } } /*вот и всё, коллега-сишник : d*/