Одномерный массив.

[Катя)]

Прощу помочь с решением задачи.

Дан массив А(N).
Если сумма элементов массива положительна, то осуществить циклический сдвиг элементов массива вправо на Z.

Z - как я поняла, тоже надо вводить.

Вот, вроде как есть вариант, но нужно чтоб задача была без процедур:

program tt;
uses wincrt;
var
  a:array[1..100] of integer;
  i,z,sum,n,j,r:integer;
begin
  Randomize;
  writeln('Введите размер массива: ');
  readln(n);
  sum:=0;
  for i:=1 to n do begin
    a[i]:=random(40)-20;
    write(a[i],' ');
    inc(sum,a[i]);
  end;
  writeln;
  if sum>0 then begin
     writeln('Введите на сколько произвести сдвиг:');
     readln(z);  
     for i:=1 to z do begin
       for j:=n downto 1 do
         if (j=n) then r:=a[n] else a[j+1]:=a[j];
      a[1]:=r;
      end;
   end;
   writeln('массив после обработки:')l
   for i:=1 to n do
     write(a[i],' ');
 readln
end.

[Прик]

Сообщение от Катя)

Вот, вроде как есть вариант, но нужно чтоб задача была без процедур:

Где же вы в этом примере процедуры увидели?

[Летучий_СкилетиК]

Z - как я поняла, тоже надо вводить

, да так оно и есть.

  type
      mas = array [1..50] of byte;
var a : mas;
i, n, z, s : byte;

procedure sdvig (n : byte);
var t ,j : byte;
begin
        t := a [n];
        for j := n downto 2 do
            a [j] := a [j-1];
        a [1] := t;
   end;
begin
readln(n,z);
s := 0;
for i:=1 to n do
begin
    readln(a[i]);
    s := s + a [i];
end;
if s > 0 then
   for i := 1 to z do
       sdvig (n);
for i:=1 to n do
write(a[i],' ');
readln;
end.

[Катя)]

Вот написала под себя прогу.
Но понять не могу, получается какой-то странный результат.
Может где-то ошибка? или вывод не правильный?

Program bz;
Var a:array[1..50]of integer;
sum,i,n,z,p:integer;
Begin
    writeln('Введите N');
    readln(N);
 For i:=1 to n do
                 begin
                    writeln('a[',i,']=');
                    readln(a[i]);
                 end;
 sum:=0;
For i:=1 to n do
    sum:=sum+a[i];
IF sum>0 then begin
                 writeln('Введите z'); {вводим число сдвига}
                 readln(z);
               end;
For i:=1 downto z do
   begin
     p:=a[n];  {в переменную P забиваем конечное значение массива}
    For i:=n downto 2 do
     a[i]:=a[i-1];
     a[1]:=p;  {на пустое первое значение забиваем конечное}
   end;
 
   writeln('массив со сдвигом:');
   for i:=1 to n do
     write(a[i],' ');
 readln;
end.

[skgwazap]

For i:=1 downto z do
   begin
     p:=a[n];  {в переменную P забиваем конечное значение массива}
    For i:(тут)=n downto 2 do
     a[i(тут)]:=a[i(тут)-1];
     a[1]:=p;  {на пустое первое значение забиваем конечное}
   end;

нужно использовать другую переменную (например j)? иначе предыдущее значение i теряется.