peremsr:=perem / m;
sravnsr:=sravn / m;
;
nul; { Заповнення масиву рівними числами (0) }
var: Integer;
begin
perem:=0;:=0;
for z:=1 to m doi:=1 to n do [i]:=0;
print;
writeln;;;
perem:=perem + pr;
sravn:=sravn + sr; ;
peremsr:=perem / m;
sravnsr:=sravn / m;
;
sluchainie; {};
perem:=0;:=0;
for z:=1 to m doi:=1 to n do [i]:=random (500);
print;
writeln;;;
perem:=perem + pr;
sravn:=sravn + sr; ;
peremsr:=perem / m;
sravnsr:=sravn / m;
;
procedure ruchnoi; {}
var: Integer;
begin
perem:=0;:=0;
for z:=1 to m doi:=1 to n do («Vvedite chlen massiva», i); (a [i]); p>
end;
print;
writeln;;;
perem:=perem + pr;
sravn:=sravn + sr;
peremsr:=perem / m;
sravnsr:=sravn / m;
;; («Vvedite kolichestvo elementov»); (n);
writeln («Vvedite kolichestvo sortirovok»);
readln (m);
(«viberite deistvie:»);
(«1. Sgenerirovat massiv sluchainimi chislami»);
(«2. Sgenerirovat massiv nulaimi»);
(«3. Sgenerirovat massiv po ubivaniu»);
(«4. Sgenerirovat massiv po vozrastaniu»);
(«5. Vvod v ruchnuu»);
(punkt);
punkt of
: sluchainie; { вибір методу генерації масиву }
: nul;
: ubivanie;
: vozrastanie;
: ruchnoi;;;
(«Srednee kol-vo peremeshenii dla», m, «sortirovok =», peremsr: 2:1, # 13 # 10, «srednee kol-vo sravnenii =», sravnsr: 2:1);
readln;.
ДОДАТОК F
Код програми № 2
program Sravn_Teor_i_Pract_issledovanii;; _znacheniya=array [1 .. 100...