Нужно построить грузовой лифт (рассчитать нагрузку и с ее учетом начертить основной и сборочные чертежи). Есть кран-балка с грузоподъемностью в 5т. Есть рамные стеллажи, которые будут служить опорами для направляющих лифтовой кабины. Сама кабина должна получиться прямоугольной с возможностью подцепить ее сверху на крюк крана. Лифт должен выдерживать нагрузку в 500 кг веса и иметь плавный заезд/съезд (возможно откидной борт, который станет пандусом в раскрытом состоянии). Размер между рамами для построения лифта 1160х2380 мм. Высота кабины до соединения с крюком - 2100 мм. Т.е. должна получиться прямоугольная клетка, которую сверху можно зацепить крюком, по ребрам вертикальным должны быть какие-то "колеса/ролики" для устранения колебаний при подъеме и спуске и направляющие для них. Полезную площадь кабины надо сделать максимально полезной. Во вложении фото рам стеллажей, между которыми надо построить кабину лифта.
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
Const n=10; var a:array[1..n] of integer; i,s,min:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; s:=0; min:=a[1]; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; if a[i]<min then min:=a[i]; end; writeln('s = ',s,' min = ',min); for i:=1 to n do if a[i]>0 then a[i]:=s else if a[i]<0 then a[i]:=a[i]-min; writeln('Измененный массив:'); for i:=1 to n do write(a[i]:4); writeln; end.
