Program chik1; var n:integer; b,c:real;i:integer; a:array[1..1000]of real; begin readln(n); for i:=1 to n do read(a[i]); readln(b,c); for i:=1 to n do begin if(a[i]>b)then a[i]:=c; write(a[i],' '); end; <span>end. 2) program chik2; var n:integer; s:real; i,k:integer; a:array[1..1000]of real; begin readln(n); s:=0;k:=0; for i:=1 to n do begin read(a[i]); if(a[i]>0)then s:=s+a[i]; if(a[i]<0)then k:=k+1; end; write(s,' ',k); <span>end. 3) program chik3; var n:integer;max:real; i,k:integer; a:array[1..1000]of real; begin readln(n); for i:=1 to n do read(a[i]); max:=a[1]; k:=1; for i:=2 to n do if(a[i]>max)then begin max:=a[i]; k:=i; end; writeln(max,' ',k); n:=n-1; for i:=k to n do a[i]:=a[i+1]; for i:=1 to n do write(a[i],' '); <span>end. 4) program chik4; const q=3; var n:integer; max:real; i,k:integer; a:array[1..1000]of real; begin readln(n); for i:=1 to n do read(a[i]); max:=a[1]; k:=1; for i:=2 to n do if(a[i]>max)then begin max:=a[i]; k:=i; end; writeln(max,' ',k); n:=n+1; for i:=n downto k+1 do a[i]:=a[i-1]; a[k]:=q; for i:=1 to n do write(a[i],' '); <span>end. 5) program chik5; var n:integer; s,max:real; i,k:integer; a:array[1..1000]of real; begin readln(n); for i:=1 to n do read(a[i]); max:=a[1]; k:=1; for i:=2 to n do if(a[i]>max)then begin max:=a[i]; k:=i; end; s:=a[1]; a[1]:=a[k]; a[k]:=s; for i:=1 to n do write(a[i],' '); <span>end. </span>6) program chik6; var n:integer; max,min:real; i,k,p:integer; a:array[1..1000]of real; begin readln(n); for i:=1 to n do read(a[i]); max:=a[1];k:=1; p:=1;min:=a[1]; for i:=2 to n do begin if(a[i]>=max)then begin max:=a[i]; k:=i; end; if(a[i]<min)then begin min:=a[i]; p:=i; end; end; for i:=1 to n do begin if ( (i<k) and (i>p) ) or ( (i>k) and (i<p) )then a[i]:=0; write(a[i],' '); end; <span>end.</span></span></span></span></span>
2. База знаний — совокупность знаний, относящихся к некоторой предметной области и формально представленных таким образом, чтобы на их основе можно было осуществлять рассуждения.
3.
Минимальная избыточность.
Непротиворечивость.
Целостность данных.
Независимость данных.
Возможность ведения (добавления и удаления) и актуализации (корректировки, модификации) данных.
Var a:array[1..100] of integer; b, c, i: integer; begin read(b); read(c); for i:=b to c do begin a[i]:=i; if a[i] mod 2=0 then writeln(a[i], ' '); end; end.