1 семестр / Лаболаторная 2 / Lab2_1_var12

program Lab2_1_var12;
const 
  n=5;  {колличество элементов в массиве}

var 
  x,y:array [1..n]of real; {два массива с вещественным типом}
  i,L,k:integer; {переменные для цикла}

procedure Shift(val:integer); {процедура сдвига элементов}
  var i:integer;  {}
  begin
    L:=n-k; {блок переноса элементов массива}
    for i:=1 to L do 
      begin 
        y[i]:=x[i+k]; {добавляем в массив y, эелементы массива x со смещением}
      end;
    for i:=n downto L+1 do
      begin
        y[i]:=x[i-L]; {добавляем последние элеменя массива x в массив y}
      end;
  end;
begin
  writeln ('Массив до сдвига: ');  {формирование массива x}
  randomize;  {функция случайных чисел}
  for i:=1 to n do  {цикл от 1 до n}
    begin
      x[i]:=random(10); {заполняем массив x случайными числами}
      write (x[i]:2)  {выводим на экран элементы массива x}
    end;
  begin 
    writeln;
    writeln('Введите величину сдвига: '); {запрашиваем величину сдвига}
    readln(k); {величину сдвига присваиваем переменной k}
    if (1<=k) and (k<=(n-1)) then {проверка на условие переменной k}
      begin
        Shift(k);
        writeln ('Массив после сдвига: '); {вывод массива Y}
        for i:=1 to n do
          write (y[i]:2) {вывод массива y}
      end
      else writeln ('k не подходит'); {вывод если k не удовлетворяет условию}
  end;
end.