Найти слово связывающее эти картинки (по информатике)

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

, не принимает вордовские таблицы.

смотри вложение-принтскрин.

for

примеры

(pascal)

for i : = 1 to 10 do

  s: =s+1;

(c#,c++)

for (int i=0; i< 10; i++) {

    s+=i;

}

(ruby)

for i in 1..10

  s=s+i

end

(vb, vba,

for i = 1 to 10

  s=s+i

next i

по умлчанию шагом счетчика является 1. обычно шаг счетчика можно менять фразой by или step by. хотя увы такое есть не во всех языках

(c#,c++)

for (int i=0; i< 10; i=i+2) {

    s+=i;

}

(vb, vba,

for i = 1 to 10 step by 2

  s=s+i

next i

например в паскале возможен только обратный отсчет

for i : = 10 downto 1 do

  s: =s+1;

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. правда не знаю ли под это правило языки из группы с