1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
Если границы индекса массива n1 и n2 соответственно, то количество элементов = n2-n1+1
1. [4..18]: 18-4+1=15
2. [3..11]: 11-3+1=9
3. [1..15]: 15-1+1=15
4. [10..28]: 28-10+1=19
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
b.Println
end.
<u>Пример</u>
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13