Его можно открыть либо в MS Office как XML документ, либо в Open Office тоже в формате XML. Правда, вряд ли вам это что - то даст, т. к. относится к системному файлу (код разработки программы) самого приложения. Модифицировать вы его можете только в открытом ключе, а оно вам надо?
program Ex1; const nn=100; { ограничение на длину массива } var i,n,s,k:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); k:=0; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]>0 then begin k:=k+1; s:=s+a[i] end end; Writeln; Writeln('Среднее положительных ',s/k) end.
program Ex2; const nn=100; { ограничение на длину массива } var i,n,min:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); min:=100; { больше максимально возможного } for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]<min then min:=a[i] end; Writeln; Writeln('Минимум ',min) end.
Выводы о том, чему и как учат в школе, делайте самостоятельно...
Var ma:array of array of integer; i,j,n,r:integer; begin readln(n); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],n+1); writeln('Matrix:'); for i:=1 to n do begin writeln; for j:=1 to n do begin ma[i,j]:=random(n); write(ma[i,j]:4); end; end; for i:=1 to n do for j:=i+1 to n do r:=r+ma[i,j]; r:=r div 3; writeln; if odd(r) then writeln('Да') else writeln('Нет'); end.
Его можно открыть либо в MS Office как XML документ, либо в Open Office тоже в формате XML. Правда, вряд ли вам это что - то даст, т. к. относится к системному файлу (код разработки программы) самого приложения. Модифицировать вы его можете только в открытом ключе, а оно вам надо?
Объяснение: