Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
Тут 3 яруса первые А В = 1 , 1=\ F=& (x^y)^(x^y)
/
_
А) при x ∈ [-3;8];
б) при x ∈ (- бесконечности;-3)V(8;+бесконечности).
F= 1024000*5=2^(10) *5000 бит =2^(13)*625 бит = 625 Кбайт