Const n=30; var a:array[1..n] of integer; i,min,max,s:integer; sr:real; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(11)+10; write(a[i]:6); end; writeln; min:=a[1]; max:=a[1]; s:=a[1]; for i:=2 to n do begin if a[i]<min then min:=a[i]; if a[i]>max then max:=a[i]; s:=s+a[i]; end; sr:=s/n; writeln('min = ',min,' max = ',max,' sr = ',sr); s:=0; for i:=1 to n do write(a[i]-sr:6:1); end.
Пример (для 10 дней): Массив A: 11 16 19 15 13 19 11 16 17 17 min = 11 max = 19 sr = 15.4 -4.4 0.6 3.6 -0.4 -2.4 3.6 -4.4 0.6 1.6 1.6
function minim(ar: array of real; n: integer): real; var i: integer; min: real; begin min := MaxReal; for i := 0 to n - 1 do //динамические массивы индексируются с 0 if min > ar[i] then min := ar[i]; minim := min; end;
begin randomize; write('NA:');readln(NA); //ввод размерностей write('NB:');readln(NB); write('NC:');readln(NC); var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов var b := ArrRandomReal(NB, 1, NB); var c := ArrRandomReal(NC, 1, NC); a.println(' '); writeln('Min:', minim(a, NA)); b.println(' '); writeln('Min:', minim(b, NB)); c.println(' '); writeln('Min:', minim(c, NC)); end.
var a:array[1..n] of integer;
i,min,max,s:integer; sr:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:6);
end;
writeln;
min:=a[1]; max:=a[1];
s:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
s:=s+a[i];
end;
sr:=s/n;
writeln('min = ',min,' max = ',max,' sr = ',sr);
s:=0;
for i:=1 to n do write(a[i]-sr:6:1);
end.
Пример (для 10 дней):
Массив A:
11 16 19 15 13 19 11 16 17 17
min = 11 max = 19 sr = 15.4
-4.4 0.6 3.6 -0.4 -2.4 3.6 -4.4 0.6 1.6 1.6