Преобразовать массив х по правилу - Pascal ABC

Формулировка задачи:

Дано: var x,y:array [1..7] of real; k: 1..7 Преобразовать массив Х по следующему правило (воспользовавшись массивом у как вспомогательным): Элементы массива Х циклически сдвинуть на К позиций влево.


textual

Код к задаче: «Преобразовать массив х по правилу - Pascal ABC»

var x,y:array [1..7] of real;
    k,n,i: 1..7;
begin
writeln('Введите в строку через пробел 7 элементов массива, вещественные числа');
for i:=1 to 7 do
read(x[i]);
writeln;
write('Введите число позиций сдвига от 1 до 7 k=');
readln(k);
if k=7 then
 begin
  writeln('Массив остается без изменений');
  exit;
 end;
for i:=1 to 7-k do
y[i]:=x[i+k];
for i:=1 to k do
y[7-k+i]:=x[i];
for i:=1 to 7 do
write(y[i],' ');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5

Источник
Похожие ответы