Объяснение:
Ақпараттарды қорғау ауданында ең негізгі заны 26 маусымда 1998 жылы еңгізілген. Ол № 233-1 “Қазақстан Республикасының халық қауыпсыздығы туралы” заны, 22 бабы. “ақпараттық қауыпсыздықты қамтамасыз ету” Қазақстан Республикасында ақпараттық ресурстарды қолдану және қалыптастыру кезінде пайда болған қатынасты жинақтау, сақтау, тарату және қолданушыларға құжаттық ақпараттарды қамтамасыз етеді, сонымен қатар ақпараттық технологияларды құру және қолдану кезінде, ақпаратты қорғау кезінде қамтамасыз етеді.
Мемлекттік органдарда, ұйымдарда, тәуелсіздік формасына қарамастан, азаматтар мен қызметкер адамдарға занға байланысты мынадай шараларды міндетті түрде қолдамауға қажет:
Қазақстанның ақпараттық тәуелділігіне;
Басқа мемлекеттер тарапынан ақпараттық жаулап алу;
Президент, Парламент, Правительство және Қазақстан Республиаксының халықтық қаупсыздық күшінің ақпараттық изоляциясын қаматамасыз етуде.
Халықтын қауыпсыздығына күмән келтіретін әрекеттерді қолдануға тиым салынады, мысалы:
мемлекеттік қүпия жұмыстармен айналысқан қызметшілер бес жыл бойы Қазақстан Республика шек арасынаң тұрақты тұрғын жерін ауыстыруға болмайды.
Қазақстан Республика территориясында халықтың қауыпсыздығына күмән келтіретін жазба ақпататтарды, радио- және теледидарда шетелдік массалық ақпараттарды таратуға болмайды.
Мемлекеттін мүдесіне байланысты жұмыс бабындағы немесе басқада бір ақпараттарды жаюға болмайды
шетел адамдарға тура немесе жанама түрінде 20 шақты проценттік акция пакеттерін қолдануға, білуге, пайдалануға болмайды
Program A1;
var a:array[1..30] of integer;
amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], ' ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];
a[imin]:=a[imax];
a[imax]:=s;
for i:=1 to n do
writeln(a[i],' ');
end.
