Advertisement
Guest User

Untitled

a guest
Feb 17th, 2020
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.36 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses SysUtils;
  6. var size, i, j, dvig, buf:integer; sr:real;
  7. mas: array [1..7] of integer;
  8.  
  9. procedure Task(var x: integer; var mas: array of integer;var sr:real);
  10. var i, m, sum, count:integer;
  11. begin
  12.   sum := 0;
  13.   count:= 0;
  14.   readln(m);
  15.   x := m;
  16.   for  i:= 0 to m-1 do
  17.      begin
  18.       read(m);
  19.       mas[i] := m;
  20.       if (m < 0) then
  21.       begin
  22.         sum:= sum + m;
  23.         count:= count + 1;
  24.       end;
  25.      end;
  26.      if (count > 0) then sr := sum / count
  27.      else sr := 0;
  28. end;
  29.  
  30. procedure Sdvig(var dvg:integer);
  31. var n:integer;
  32. begin
  33.   readln(n);
  34.   dvg := n;
  35. end;
  36.  
  37. procedure output(x:integer; mas: array of integer);
  38. var i:integer;
  39. begin
  40.   for i:= 0 to x-1 do write(mas[i], ' ');
  41. end;
  42.  
  43. begin
  44.   Task(size,mas,sr);
  45.   for j := 1 to size do write(mas[j], ' ');
  46.   writeln;
  47.   writeln(size);
  48.   if (sr <> 0) then writeln(sr:5:5)
  49.   else writeln('There are no any <0 elements');
  50.   Sdvig(dvig);
  51.   if (dvig < 0) then
  52.   begin
  53.     for i:= 1 to (dvig * -1) do
  54.    begin
  55.       buf := mas[size];
  56.       for j := size downto 2 do mas[j] := mas[j-1];
  57.       mas[1] := buf;
  58.     end;
  59.   end;
  60.   if (dvig > 0) then begin
  61.    for i:= 1 to dvig do
  62.     begin
  63.        buf := mas[1];
  64.        for j := 1 to size-1 do mas[j] := mas[j+1];
  65.        mas[size] := buf;
  66.     end;
  67.    end;
  68.   output(size, mas);
  69.   readln;
  70. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement