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.
Объяснение:
Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы
Жеке құқық - жеке мүдделер, тәуелсіздік және жеке меншік пен бірлестік (корпорация) иелері бастамашылдығын қамтамасыз ететін қатынастарды реттейтін құқық саласын білдіретін, олардың мүліктік қызметі мен жеке қатынасында, жария құқықтан айырмашылығы, жалпы мүдделерді реттейтін және қорғайтын жинақтаушы түсінік.(по казакский )
Объяснение:
Частное право — часть системы права[1], функционально-структурная подсистема права[2], совокупность правовых норм, охраняющих и регулирующих отношения между частными лицами, основой которых является частная собственность[3]. Тем самым частное право — это совокупность норм права, защищающих интересы лица в его взаимоотношениях с другими лицами[4](по русский)