[bogdan-86rus]

1.Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию.

2.Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.

буду очень признателен!)

[Bargest]

[offtop]Сессия ВНЕЗАПНО пришла в декабре, все высыпали на форумы, чтобы им сделали ДЗ...[/offtop]
Если хотите готовое решение - вперед в раздел "Работа".
Если хотите что-то понять или научиться - приложите свои усилия и спрашивайте, что именно не получается.

[U.B.M.]

Сообщение от bogdan-86rus

1.Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на одну позицию.

Код:

const
  N = сколько-то-там;
var
  a : array [1..N] of integer;
  i,  value : integer;
.......

  value := a[N];
  for i := N downto 2 do
    a[i] := a[i-1];
  a[1] := value ;

Сообщение от bogdan-86rus

2.Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.

Код:

procedure SumDigit(N : integer; var S : integer);
begin
  S := 0;
  while (N >= 10) do
  begin
    S := S + N mod 10;
    N := N div 10;
  end;
  S := S + N;

[bogdan-86rus]

большое спасибо, напишите свой маил в сообщение мне, отблагодарю вас)