Даны два файла: input.txt и output.txt. в input.txt дана последовательность чисел: 1,6,11,16,21. в output.txt отобразить размах ряда (т.е разность между наибольшим и наименьшим числом). pascal
1. uses crt; const n=20; var i,cp1,cn1:integer; p,cp,cn:real; z:array[1..n] of integer; begin randomize; for i:=1 to n do begin z[i]:=random(20,-20); if z[i]>=0 then begin cp:=cp+z[i]; cp1:=cp1+1; end else begin cn:=cp+z[i]; cn1:=cn1+1; end; cp:=cp/cp1; cn:=cn/cn1; end; if cp>cn then p:=cp+cn else p:=cp*cn; for i:=1 to n do write(z[i],' '); writeln(#13#10,cp:5:2,' ',cn:5:2,' ',p:5:2); end. 2. uses crt; const n=15;m=4; var i,j,k,flag,count:integer; a:array[1..n,1..m] of integer; temp:array[1..100] of integer; b:array[1..100,1..m] of integer; begin randomize; k:=1; count:=0; for i:=1 to n do begin flag:=1; for j:=1 to m do begin a[i,j]:=random(51,1); if (a[i,j]<10) or (a[i,j]>40) then flag:=0 end; if flag=1 then begin temp[k]:=i; count:=count+1; k:=k+1; end; end; for i:=1 to count do for j:=1 to m do b[i,j]:=a[temp[i],j]; writeln('Массив A:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); write(#13#10); end; if count=0 then writeln('Нет подходящих строк.') else begin writeln(#13#10,'Массив B:'); for i:=1 to count do begin for j:=1 to m do write(b[i,j],' '); write(#13#10); end; end; end.
1.Информация — сведения о чём-либо, независимо от формы их представления. 2.Информатика наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений. 3.Внутренние свойства — это свойства, органически присущие объекту. Они обычно «скрыты» от изучающего объект и проявляют себя косвенным образом при взаимодействии данного объекта с другими. Внешние свойства — это свойства, характеризующие поведение объекта при взаимодействии с другими объектами. 4.Логическая информация, адекватно отображающая объективные закономерности природы, общества и мышления, получила название научнойинформации. Ее делят по областям получения или использования на следующие виды:политическая,техническая,биологическая,химическая,физическая и т.д.;по назначению - на массовую и специальную. 6. Бит, байт, килобит, мегабайт, гагабайт. 7. Система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).
F : file of byte;
begin
assign(F,'input.txt'); reset(F);
read(F,a);
close(F);
assign(F,'output.txt'); rewrite(F);
write(F,b);
close(F);
end.