Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
<span>end.
значения выводить можно через отдельный цикл
</span>var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.
1 символ - 8 бит (то есть 1 байт)
16 символов - 128 бит (16 байт)
Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
<span>Сплошной массив байтов, располагающийся в старших адресах сразу за областью памяти, которую занимает тело программы называется кучей. Так что, В).
</span>
..........................