Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses SysUtils;
- var size, i, j, dvig, buf:integer; sr:real;
- mas: array [1..7] of integer;
- procedure Task(var x: integer; var mas: array of integer;var sr:real);
- var i, m, sum, count:integer;
- begin
- sum := 0;
- count:= 0;
- readln(m);
- x := m;
- for i:= 0 to m-1 do
- begin
- read(m);
- mas[i] := m;
- if (m < 0) then
- begin
- sum:= sum + m;
- count:= count + 1;
- end;
- end;
- if (count > 0) then sr := sum / count
- else sr := 0;
- end;
- procedure Sdvig(var dvg:integer);
- var n:integer;
- begin
- readln(n);
- dvg := n;
- end;
- procedure output(x:integer; mas: array of integer);
- var i:integer;
- begin
- for i:= 0 to x-1 do write(mas[i], ' ');
- end;
- begin
- Task(size,mas,sr);
- for j := 1 to size do write(mas[j], ' ');
- writeln;
- writeln(size);
- if (sr <> 0) then writeln(sr:5:5)
- else writeln('There are no any <0 elements');
- Sdvig(dvig);
- if (dvig < 0) then
- begin
- for i:= 1 to (dvig * -1) do
- begin
- buf := mas[size];
- for j := size downto 2 do mas[j] := mas[j-1];
- mas[1] := buf;
- end;
- end;
- if (dvig > 0) then begin
- for i:= 1 to dvig do
- begin
- buf := mas[1];
- for j := 1 to size-1 do mas[j] := mas[j+1];
- mas[size] := buf;
- end;
- end;
- output(size, mas);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement