Дано целое число n(> 0 сформировать и вывести целочисленный массив размера n, содержащий степени двойки от первой до n-й: 2, 4, 8,

Сделал через динамический массив и без модуля math var i,n: integer;     a: array of real; begin  readln(n);   setlength(a,n);   for i: =0 to length(a) do    a[i]: =exp(ln(2)*i);   for i: =0 to length(a) do    writeln('2^',i,' = ',a[i]);   readln; end.

соблюдение простых правил избежать многих проблем

1.  советуйтесь с родителями.  обязательно спрашивайте родителей о незнакомых вещах в интернете. например, о получении странного сообщения или предложения.

2.  храните личную информацию в тайне! не пишите в интернете (в том числе в играх и на своих страничках в социальных сетях) личную информацию, такую как: адрес, номера и мобильного телефонов, адрес электронной почты, место учёбы.

3.  не открывайте подозрительные файлы.  не стоит скачивать или открывать неизвестные, а особенно присланные незнакомцами файлы. это может к заражению компьютера вирусами.

4.  не переносите виртуальные знакомства в реальность.  если виртуальный знакомый хочет пообщаться или встретиться с вами в реальной жизни – ни в коем случае не соглашайтесь. люди в сети не всегда рассказывают правду о себе и целях своих поступков. обязательно сообщите о таком предложении родителям.

5.  не спешите отправлять  sms.если за скачивание картинки или музыки из интернета, или для покупки игровых ценностей просят отправить sms, спрашивайте разрешение у родителей для отправки подобных сообщений.

6.  будьте дружелюбны.не нужно писать грубых слов, потому что читать их так же неприятно, как и слышать, к тому же за грубости на ваш аккаунт могут быть наложены ограничения.

7.  храните пароли в секрете.храните в секрете свои пароли от страничек, почты и игр от всех, кроме родителей.

Const n=20;   var a: array[1..n] of real; i: integer; p1,p2: real; begin writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =20*random-10;   write(a[i]: 6: 2);   end; writeln; p1: =1; p2: =1; for i: =1 to n do   if a[i]> 0 then p1: =p1*a[i] else p2: =p2*a[i]; if abs(p1)> abs(p2) then writeln('p1 = ',p1: 5: 2) else writeln('p2 =2',p2: 5: 2); end. пример (для 10 элементов): исходный массив:   2.51 -4.92 -0.31   6.88   2.54 -3.91 -0.29   5.18   3.91 -5.67 p1 = 887.53