Векторный графический редактор можно рассматривать как графический конструктор, который позволяет создавать рисунки из отдельных объектов (графических примитивов).
Слои объектов. Каждый графический примитив рисуется в своем слое, поэтому рисунки состоят из множества слоев. Графические примитивы можно накладывать друг на друга, при этом одни объекты могут заслонять другие. Например, если сначала был нарисован прямоугольник, а затем поверх него - окружность, то слой окружности будет располагаться поверх слоя прямоугольника и окружность заслонит прямоугольник.
Существует возможность изменения видимости объектов путем изменения порядка размещения их слоев на рисунке. Для этого используются операции изменения порядка, которые позволяют перемещать выделенный объект на передний план (в самый верхний слой рисунка) или на задний план (самый нижний слой рисунка), а также на один слой вперед или назад
var a: array [1..5] of integer;
i, j , count, sum_count: integer;
repeated : boolean;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-e число: ');
readln(a[i]);
end;
sum_count := 0;
for i := 1 to 5 do
begin
repeated := false;
for j := 1 to i - 1 do
begin
repeated := (a[i] = a[j]);
if repeated then break;
end;
if repeated then continue;
count := 1;
for j:= i+1 to 5 do
if (a[i]=a[j]) then
inc(count);
if count > 1 then
sum_count += count;
end;
writeln(sum_count);
end.
program o;
var A:array[1..5] of integer; i:integer;
begin;
for i:=1 to 5 do readln(A[i]);
for i:=5 downto 1 do writeln(A[i])
end.
Третье:
program p;
var A:array[1..15] of integer; i,sum1,sum2,res:integer;
begin;
for i:=1 to 15 do read(A[i]);
for i:=1 to 15 do
if i mod 2=0 then sum1:=sum1+A[i] else sum2:=sum2+A[i];
res:=sum1-sum2;
write(res);
end.