Помогите решить задачи по икт. 1 заполнителя массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг вправо. 2 заполнить массив из 10 элементов случайными числами в интервале [0..100) и отс...
Помогите решить задачи по икт.
1 заполнителя массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг вправо.
2 заполнить массив из 10 элементов случайными числами в интервале [0..100) и отсортировать её по возрастанию
Гость
Ответ(ы) на вопрос:
ГостьЗадача 1.
const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(21) - 10;
Write(a[i]:4);
end;
Writeln;
s := a[n];
for i := n - 1 downto 1 do a[i + 1] := a[i];
a[1] := s;
Writeln('После циклического сдвига вправо на 1');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-2 -1 7 10 2 -7 9 -6 -5 -10
После циклического сдвига вправо на 1
-10 -2 -1 7 10 2 -7 9 -6 -5
Задача 2.
const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(101);
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
31 60 14 17 46 6 46 97 60 88
Отсортированный по возрастанию массив
6 14 17 31 46 46 60 60 88 97
Не нашли ответ?
Похожие вопросы