В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
alexeremka
alexeremka
07.05.2021 09:53 •  Информатика

Pascal Дана последовательность из N целых чисел и число K . Сдвинуть всю последовательность на K элементов вправо , если K - положительное и влево , если отрицательное

Показать ответ
Ответ:
akyjla551
akyjla551
19.09.2021 01:20

могу наверное написать на с++, а там на паскале похожее.

vector<int>a;

int n,k,s,x,i,s1,n1;

cin>>n>>k;

for(i=0;i<n;i++)

{

cin>>x;

a.push_back(x);

}

s=a[0];

if(k<0)

{

s1=s+k;

s1=s1+1;

for(i=0;i<n;i++)

{

s1=s1-1;

a[i]=s1;

}

else

{

s1= s+k;

s1 =s1-1;

for(i=0;i<n;i++)

{

s1=s1+1;

a[i]=s1;

}

}

вывести массив

Объяснение:

не уверен, что верно, мб дичь написал

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота