Program R1;
Var a:array[1..100] of integer;
i,n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
for i:=n+1 downto 2 do
a[i]:=a[i-1] ;
a[1]:=7 ;
1 в,
2 б,
3- 8 штук: ---, --+, -+-, -++, +--, +-+, ++-,+++.
4- 4,
5-г,
6 - б
7- г
8- атхуатжа:)
<span>1) [1, 2] ∩ [9, 19]
2) {5}
3) {1, 5, 8, 4, 0, -1, 6, 3, 4, 9}
4) множество натуральных чисел</span>