1. В связи с тем, что информация об объекте хранится в описательной форме, бесконечно можно увеличить графический примитив при выводе на графическое устройство, например, дугу окружности, и она останется при любом увеличении гладкой.
2. Группировка объектов позволяет манипулировать несколькими объектами как единым целым. Группы также могут содержать вложенные подгруппы.
3. Ну тут, вроде все просто, без сохранение, наш рисунок попросту не будет существовать как файл, и то вы делали, все насмарку.
1) const k = 15; var a : array [1..k] of integer; s : real; i : integer; begin randomize; s := 0; for i := 1 to k do //Обработка массива чаще всего begin //осуществляется в цикле a[i] := random(21); //Формирование s := s + a[i]; //Подсчет суммы элементов end; s := s / k; //Среднее арифметическое (сумма/кол - во) writeln (s:3:3); end.
3) const n = 5; var a : array [1..n] of integer; i,k : integer; begin k := 0; for i := 1 to n do begin readln (a[i]); //Считываем элемент if a[i] < 0 then //Если элемент меньше нуля k := k +1; //счетчик +1 end; writeln (k); end.
1. В связи с тем, что информация об объекте хранится в описательной форме, бесконечно можно увеличить графический примитив при выводе на графическое устройство, например, дугу окружности, и она останется при любом увеличении гладкой.
2. Группировка объектов позволяет манипулировать несколькими объектами как единым целым. Группы также могут содержать вложенные подгруппы.
3. Ну тут, вроде все просто, без сохранение, наш рисунок попросту не будет существовать как файл, и то вы делали, все насмарку.
Объяснение:
const k = 15;
var
a : array [1..k] of integer;
s : real;
i : integer;
begin
randomize;
s := 0;
for i := 1 to k do //Обработка массива чаще всего
begin //осуществляется в цикле
a[i] := random(21); //Формирование
s := s + a[i]; //Подсчет суммы элементов
end;
s := s / k; //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3);
end.
3) const n = 5;
var
a : array [1..n] of integer;
i,k : integer;
begin
k := 0;
for i := 1 to n do
begin
readln (a[i]); //Считываем элемент
if a[i] < 0 then //Если элемент меньше нуля
k := k +1; //счетчик +1
end;
writeln (k);
end.