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

Тема паскаль: необходимо поменять местами половинки массива(54231-31254,это к примеру)

Показать ответ
Ответ:
mspanda22
mspanda22
01.10.2020 10:36
Const n=?; {Кол-во элементов в массиве, написать число вместо "?"}
Var a,b:array[1..n] of integer;
x,k,i,j:integer;
Begin
 writeln('Init massive:');
 for i:=1 to n do
   begin
    readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет}
    a[i]:=x;
   end;
 k:=n div 2;
 if (n mod 2)<>0 then k:=k+1;
 j:=1;
 for i:=(k+1) to n do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 if (n mod 2)<>0 then
   begin
    b[k]:=a[k];
    k:=k-1;
    j:=j+1;
   end;
 for i:=1 to k do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 for i:=1 to n do write(b[i],' ');
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота