Люди, подскажитееке
А как сюда скинуть фотографию.
Windows и micrasoft таков мой ответ
Подозреваю, что просто нет полотна.
Вставка → Фигуры → Новое полотно...
Помещаешь фигуры на это полотно.
Вставка → Фигуры → Выбираешь нужную линию и также помещаешь на полотно.
На полотне у фигур по краям появляются соединительные точки.
Выделяешь линию и соединяешь ее с фигурами по соединительным точкам.
Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8
do
begin
if a[i]<(-5) then b[i]:=a[i]*3
else
begin
if a[i]>7 then b[i]:=a[i]*5
else b[i]:=a[i];
end;
end;
for i:=1 to 8 do
write(a[i],' ');
writeln();
for i:=1 to 8 do
write(b[i],' ');
<span>end.</span>