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

Впаскале abc одномерный массив из 5 чисел,нужно вывести на экран эти элементы но передвинутые влево на одно место место,а тк первый элемент мы не можем подвинуть еще левее,то его нужно разместить на самое последнее место.то есть,к примеру,вводим числа " 5 7 9 6 8 " и в итоге должно получится так " 7 9 6 8 5"

Показать ответ
Ответ:
13102005bibe
13102005bibe
30.08.2020 23:19
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=5;

Var
 ar:array[1..n] of integer;
 i,c:integer;
begin
 randomize;
  writeln('First array:');
   for i:=1 to n do
    begin
     ar[i]:=random(10);
     write(ar[i]:4);
    end;
 writeln;
 c:=ar[n];
 for i:=n downto 2 do
 ar[i]:=ar[i-1];
 ar[1]:=c;
 writeln('Final array:');
 for i:=1 to n do
  write(ar[i]:4);
end.

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