Дан одномерный массив r из n элементов, значения которых находятся в диапазоне от -22 до 362. сложить все отрицательные элементы, стоящие на нечётных местах. бейсик

Sub aaa()       const n = 100       dim i as integer, s as integer       dim r(1 to n) as integer       randomize timer       for i = 1 to n               r(i) = int(385 * rnd - 22)       next i       s = 0       for i = 1 to n step 2               if r(i) < 0 then s = s + r(i)       next i       msgbox "сумма нечетных элементов с отрицательными значениями равна " + str(s) end sub

Input "n? ", n dim r(n) as integer randomize timer     for i = 1 to n            r(i) = (rnd(1) * 385) - 22                print r(i);     if i mod 2 < > 0 then          if r(i) < 0 then                s = s + (i)      end if    end if    next i    print s

Код программы ниже и во вложениях. var    n: integer;   // степень числа  res: integer; // результат  idx: integer; // индекс для цикла begin   write('введите степень числа: ');   readln(n);   res : = 1;   if n < 0 then   begin     writeln('степень должна быть неотрицательной.');     halt(-1); // завершение программы   end   else if n > = 30 then   begin    writeln('переполнение типа integer.');     halt(-2);   end   else if n > 0 then   begin     for idx : = 1 to n do       res : = res * 2;   end;   writeln('результат возведения 2 в степень ', n, ': ', res, '.'); end.

Program z234;   const n = 10;   var a: array [1..n] of integer; i,x,f: integer; begin  for i: =1 to n do  begin    write('a[',i,'] = ');     readln(a[i]);   end;       for i: =1 to n do    write(a[i],'  ');       writeln;   write('введите число = ');   readln(x);       f: =0;   for i: =1 to n do    if a[i] = x then f: =1;             if f = 1 then writeln('число ',x, ' входит в массив')            else writeln('число ',x, ' не входит в массив')end.