Дана последовательность целых чисел а1, а2 а18, в начале которой записаны несколько равных между собой элементов. определить количество таких элементов последовательности. условный оператор не использовать. язык с ,с while

#include < stdio.h> #include < conio.h> int main (int argc, char *argv[]) {       const int n = 18;       int a[n], i = 0;       while(i < n)       {             printf("a[%d] = ",++i);             scanf("%d", & a[i-1]);       }       i = 0;       while(a[i]==a[i+1])             i++;       printf("k = %d",++i);       getch(); } пример работы программы: a[1] = 1 a[2] = 1 a[3] = 1 a[4] = 1 a[5] = 1 a[6] = 1 a[7] = 3 a[8] = 4 a[9] = 5 a[10] = 6 a[11] = 4 a[12] = 5841 a[13] = 65 a[14] = 63 a[15] = 56 a[16] = 5 a[17] = 8 a[18] = 6 k = 6

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

microsoft visual basic 2010(более ранние тоже прокатят)

 

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

 

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end