[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;