Представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «В поход решили взять палатку, котелок, топор, хлеб, тушенку, гречу, макароны, чай».

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.

2^6 = 64 - значит 6 лампочек

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.