Const
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.
Компьютер -5
Телефон-3
Часы - 7
Векторная графика состоит из математических формул, а растровая из пикселей, при увеличении изображения это четко видно, т.к увеличив векторную можно увидеть пиксели(квадратики) с векторным же такое не получится, его можно увеличивать до огромных размеров.
Если хотите попробовать скачайте Coral Draw или же Adobe Illustrator.
Правильный ответ под номером 2 - они <span>формируются из графических примитивов (линий, окружностей, прямоугольников и так далее)</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.