1. Используя инструмент "Линия" начертим прямую линию.
2. Скопируем эту линию, повернем на 90 градусов влево.
3. При помощи инструмента "Линия" достроим треугольник.
4. Скопируем треугольник и расположим, как на скрине ниже.
5. Скопированный треугольник отразим на 180 градусов и расположим, как на скрине.
Итог и построение по шагам смотри во вложении.
Const n=8;
var x:array[1..n] of real;
i:integer; min:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i]<min then min:=x[i];
for i:=1 to n do
if x[i]<0 then x[i]:=min;
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.
</span>
Считаем количество символом от кавычек до кавычек (их не считаем), включая пробелы между словами
Всего 27. Так как один символ равен 8 битам=одному байту то Ответ 27 байт (или 216 бит)
begin
var n := 10;
var x := 5;
var a := Arr(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var b := a.Where(y -> y < x).ToArray;
b.Println;//0 1 2 3 4
end.
Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.