Задача 1:
const N = 15;
const MAX = 15;
const MIN = -15;
var A: array [1..N] of integer;
var i,s1,s2: integer;
begin
randomize();
s1:=0;
s2:=0;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
write(A[i],' ');
if (A[i]<0) then s1:=s1+A[i];
if (A[i] mod 3 = 0) then s2:=s2+A[i];
end;
writeln();
writeln('Сумма всех отрицательных элементов: ',s1);
writeln('Сумма всех элементов, кратных 3: ',s2);
end.
Задача 2:
const N = 20;
const MAX = 33;
const MIN = -15;
var A: array [1..N] of integer;
var i,imax,imin: integer;
begin
randomize();
imin:=1;
imax:=1;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
write(A[i],' ');
if (A[i]<A[imin]) then imin:=i;
if (A[i]>A[imax]) then imax:=i;
end;
writeln();
writeln('Номер минимального элемента массива: ',imin);
writeln('Номер максимального элемента массива: ',imax);
end.
1. В связи с тем, что информация об объекте хранится в описательной форме, бесконечно можно увеличить графический примитив при выводе на графическое устройство, например, дугу окружности, и она останется при любом увеличении гладкой.
2. Группировка объектов позволяет манипулировать несколькими объектами как единым целым. Группы также могут содержать вложенные подгруппы.
3. Ну тут, вроде все просто, без сохранение, наш рисунок попросту не будет существовать как файл, и то вы делали, все насмарку.
Объяснение: