Дана последовательность из м чисел. все отрицательные среди них числа возвести в квадрат и найти их сумму. visual basics

1. плывут два ребенка

2. один ребенок возвращается

3. плывет взрослый на др. берег

4. возвращается второй ребенок

5. плывут два ребенка на др. берег

6. один ребенок возвращается

7. плывет взрослый на др. берег

8. возвращается второй ребенок

9. плывут два ребенка на др. берег

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

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

сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. переплыв реку он даёт лодку матери. она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.