Численность населения, тыс чел.: на 1 января - 430,0; на 1 апреля - 430,2; на 1 июля 430,3; на 1 октября - 430,7; на 1 января 2013 г. 430,8; число умерших, чел. - 8 170; число выбывших на постоянно жительство в другие населенные пункты, чел. - 570; коэффициент жизненности - 1,075; доля женщин в общей численности населения, % - 58; доля женщин в возрасте 15-49 лет в общей численности женщин, % - 39.
Gennadevna-Darya1216
17.05.2021
можно попонятнее? если можно дай рисунок
angelinaugan119
17.05.2021
// PascalABC.Net 3.2 begin var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println; var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println; var c:=a.Intersect(b).ToArray; Write('C='); c.Println; a:=a.Except(c).ToArray; Write('A новый='); a.Println; b:=b.Except(c).ToArray; Write('B новый='); b.Println end.
Const n=3; m=4; var a:array[1..n,1..m] of integer; b:array[1..n*m] of integer; i,j,k:integer; sr:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; sr:=0; for i:=1 to n do for j:=1 to m do sr:=sr+a[i,j]; sr:=sr/(n*m); writeln('sr = ',sr); k:=0; for i:=1 to n do for j:=1 to m do if a[i,j]<sr then begin k:=k+1; b[k]:=a[i,j]; end; writeln('Полученный массив:'); for i:=1 to k do write(b[i]:4); writeln; end.