Жене кукык денег не ? Айтындарщ

Жеке құқық - жеке мүдделер, тәуелсіздік және жеке меншік пен бірлестік (корпорация) иелері бастамашылдығын қамтамасыз ететін қатынастарды реттейтін құқық саласын білдіретін, олардың мүліктік қызметі мен жеке қатынасында, жария құқықтан айырмашылығы, жалпы мүдделерді реттейтін және қорғайтын жинақтаушы түсінік.(по казакский )

Объяснение:

Частное право — часть системы права[1], функционально-структурная подсистема права[2], совокупность правовых норм, охраняющих и регулирующих отношения между частными лицами, основой которых является частная собственность[3]. Тем самым частное право — это совокупность норм права, защищающих интересы лица в его взаимоотношениях с другими лицами[4](по русский)

Основная задача Интернет – предоставление необходимой информации. Интернет – это информационное пространство, в котором можно отыскать ответ практически на любой интересующий пользователя вопрос. Это огромная глобальная сеть, в которую как информационные ручейки, стекаются потоки более мелких сетей. Любой пользователь, располагающий ПК и соответствующими программами, сможет подключиться к сети, используя её возможности для самых разных целей – проведения досуга, обучения, чтения научных работ, отправки электронной почты и т.д. По различным данным, в 2004 г. количество пользователей глобальной системы Интернет составило от 600 до 900 миллионов человек. Это число продолжает стремительно расти и уже в 2014 г. оно достигло
3 миллиарда человек. Сегодня глобальная сеть превращается в важный социальный и политический фактор современного информационного общества. С развитием Интернет-технологий появился новый гигантский источник информационных ресурсов, доступ к которым является не только относительно дешевым, но и очень быстрым.

Var i, n, k, sum:integer ;

A:array [1..100]of Integer ;

Begin

//Запрашиваем кол-во элементов массива

Write (' N=') ;read (n) ;

//Заполняем массив случайными значениями от 0 до 25

// И выводим его на экран

For i:=1 to N do begin

A[i]:=random(26);

Writeln (' A[', i, ']=', a[i]) ;

End;

//Обнуляем переменные

K:=0;sum:=0;

//В цикле находим элементы, которые больше 8

//и меньше 13,считаем их кол-во и сумму

For i:=1 to N do begin

If((a[i]>8) and(a[i]<13)) then begin

K:=k+1;

Sum:=sum+a[i];

End;

End;

//Ввводим результат на экран

Writeln(' Кол-во элементов больше 8 и меньше 13:',k);

Writeln(' Их сумма ', sum) ;

End.

Объяснение:

Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы