Сформулировать гипотезу на основании цели цель исследования – изучить общественное мнение о роли женщины в современном российском обществе, ее ценностных ориентирах

Один из известнейших английских писателей XIX ст. Ч. Диккенс с сочувствием относился к бедным людям. Своими произведениями он надеялся обратить внимание богатых на несправедливость, которая существует в обществе, и перевоспитать их. Этой теме посвященная его повесть «Рождественская песня в прозе». Главный герой произведения - владелец торгового союза «Скрудж и Марлей» Скрудж. Это был очень скупой и жестокий человек. «Через холод в души и вся фигура его словно заморозилась: нос заострился, щеки сморщились, походка стала скованной, глаза покраснели, тонкие губы посинели, а голос хитрый и досадный скрипел». Люди боялись и не любили его. Скрудж не уважал праздников, считал это бессмыслицей, не умел радоваться. Вечером перед Рождеством он обидел племянника, обругал своего работника. А ночью к нему появился призрак товарища и компаньона Марлея, о котором он давно забыл. Призрак Марлея рассказал, как он теперь раскаивается и страдает из-за того, что не делал добрых дел за жизнь. И пообещал, что Скрудж ночью встретится с Духом Духом Настоящего и Духом Будущего Рождества. Путешествие Скруджа в свое детство, в настоящее и будущее ему много кое-чего понять. Это так повлияло на него, что он сделался совсем другим человеком - давал щедрые пожертвования бедным семье клерка Боба, приветливо относился к племяннику - сына любимой сестры Фен.

Объяснение:

type arr=array[1..100] of integer;

var

 a:arr;

 i,j,k,n:integer;

procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}

var

 i:integer;

begin

 write(s);

 write('[');

 for i:=1 to n-1 do write(a[i],',');

 writeln(a[n],']');

end;

procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}

var

 i:integer;

begin

 write(s);

 for i:=1 to n do read(a[i]);

end;

begin

 repeat

   write('n(1..100)=');

   readln(n);

 until (n>0) and (n<101);

 EnterArr(a,n,'A=');

 k:=a[1];

 for i:=1 to n do if a[i]<k then k:=a[i];

 writeln('Min=',k);

 PrintArr(a,n,'A_orig=');

 for i:=1 to n do if a[i]=k then a[i]:=i*i;

 printArr(a,n,'A_new=');

 readln;

end.