Uses crt; const N=30; var a:array [1..N] of integer; x,min,max,t:integer; begin for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); end; min:=1; max:=1; for x:=1 to N do begin if a[x]<a[min] then min:=x; if a[x]>a[max] then max:=x; end; t:=a[max]; a[max]:=a[min]; a[min]:=t; for x:=1 to N do write(a[x]:4); end.
Арион родился в Мемфинах и был «несравненным кифаредом», то есть выдающимся музыкантом, играющим на кифаре. Он создал жанр дифирамба и обучил его исполнению хор в большом городе Коринфе. Большую часть своей жизни он прожил в Коринфе, а затем решил отплыть в Италию и Сикелию, то есть Сицилию. С богатством он решил возвратиться в Коринф и в городе Таранте сел на коринфский корабль. Но корабельщики решили его ограбить и предложили ему самому прыгнуть в море. Арион решил погибнуть с честью, надел полный наряд певца, спел и сам прыгнул в море. Он спасся: его вынес дельфин.
Я думаю, что Арион хотел спеть в полном наряде певца, чтобы показать корабельщикам, что он не испугался их угроз, что для него важнее не богатство, которое он нажил, а его искусство певца. Он хотел, чтобы корабельщики поняли, что они лишают жизни не просто богатого человека, а лучшего в то время музыканта. Может быть, он надеялся, что боги придут ему на помощь и не захотят гибели такого искусного музыканта.
Во второй половине XIX века рабочих было уже так много, что фактически они составляли отдельное сословие в российском обществе. Но официально они отдельные сословием не считались,
Поэтому рабочие долгое время не были защищены законами. Так в России возник рабочий вопрос — вопрос о положении наёмных работников. Владельцы фабрик и заводов (капиталисты), стремясь к большим-прибылям, были мало озабочены положением трудящихся. Наоборот, дешёвый труд людей на предприятиях ещё более увеличивал доходы капиталистов. Правительство Александра III серьёзно озаботилось положением пролетариев. Было принято 15 законов, направленных на улучшение положения рабочих.
const N=30;
var a:array [1..N] of integer;
x,min,max,t:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
end;
min:=1; max:=1;
for x:=1 to N do
begin
if a[x]<a[min] then min:=x;
if a[x]>a[max] then max:=x;
end;
t:=a[max];
a[max]:=a[min];
a[min]:=t;
for x:=1 to N do
write(a[x]:4);
end.