Право средневековой решить : вариант 1.

1. эльдерменэкберт получил известие о приходе корабля с товарами. судно пришвартовалось к гавани в день св. петра. чтобы избежать простоя, элдерменэкберт отправял всех своих слуг на его разгрузку. его слуга робин в суд, жалуясь ка незаконные действия господина. кик будет решаться суд по закону- «правде короля альфреда»?

лавочник джек поссорился с соседкой белинд. в порыве гнева джек схватил нож и убил белинду. какое наказание должен понести джек по закону «правде короля альфреда» , если белинда была беременна ?

«а» обвинялся в совершении преступления - убийство «б», в судебном разбирательстве были рассмотрены следующие доказательства: свидетель, pas который слышал шум в доме «б» в ночь убийства; два добрых свидетели, которые видели, как в ночь убийства шел в сторону дома «б»; орудие преступления, которое было найдено в доме «а»; свидетели, которые знали о личной неприязни между «а» и «б». сам «а» свою вину не признавал. какое решение примет суд на основании каролины? достаточно ли перечисленных доказательств для вынесения решения судом? укажите соответствующую статью каролины.

Қазақстанның минералдық ресурстарға өте бай. Қазақстан дүние жүзінің 186 елінің ішінде вольфрам, қорғасын және барийдің қоры бойынша бірінші орында, хромит, күміс, цинк бойынша екінші, марганец және малибден-үшінші, мыс-төртінші, уран-бесінші, алтын-алтыншы, темір кені-жетінші, қалайы мен никель- сегізінші, көмір мен табиғи газ-тоғызыншы, мұнай бойынша он үшінші орында.

Қазақстан жерінде хромиттің әлемдік қорының үштен бір, уран мен марганецтің төрттен бір бөлігі, темір кенінің оннан бір бөлігі орналасқан.

Қазақстанда барланған тас көмір және қоңыр көмірдің үлесі 200млрд. тоннадан астам. Көмір бассейіндеріне Қарағанды, Екібастұз, Майкөбен, Обаған, Жіліншік,  Шу, Теңіз-Қорғалжын, Іле, Орал Каспий жатады.

Объяснение:

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.