1. заполнить массив из 10 элементов последовательными натуральными числами ( не с клавиатуры) 2. заполнить массив с клавиатуры, вывести среднее среди четных элементов. 3. заполнить массив из 10 элементов. после этого удвоить каждый нечетный элемент с четным индексом. 4*. заполнить массив из 10 элементов последовательными простыми числами

1) var a: array [0..9] of integer;     i: integer; begin       for i : = 0 to 9 do           a[i] : = random(25); end.2)var a: array [0..9] of integer;     i, m: integer; begin      for i : = 0 to 9 do      begin          readln(a[i]);           if (a[i] mod 2 = 0) then m : = m + a[i];       end;       writeln(m / 10); end.3)var a: array [0..9] of integer;     i, m: integer; begin      for i : = 0 to 9 do      begin          a[i] : = random(50);           writeln('[', i, '] => ', a[i]);           if ((a[i] mod 2 = 1) and (i mod 2 = 0)) then a[i] : = a[i] * 2;       end;       writeln('');       for i : = 0 to 9 do          writeln('[', i, '] => ', a[i]); end.4)var a: array [0..9] of integer;     i, m: integer; begin      a[0] : = 2;       a[1] : = 3;       a[2] : = 5;       a[3] : = 7;       a[4] : = 11;       a[5] : = 13;       a[6] : = 17;       a[7] : = 19;       a[8] : = 23;       a[9] : = 29;       for i : = 0 to 9 do          writeln('[', i, '] => ', a[i]); end.c последним но работает же =)

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

 

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.