//Задан одномерный массив, заполненный 15-тью случайными целыми числами из интервала от -20 до 20.
//Составь программу, выполняющую следующие действия: Заполнение массива, вывод на экран всех элементов исходного массива в строчку через пробел,
//сортировка элементов массива по возрастанию, вывод полученного в результате массива на экран с новой строки через пробел.
program massiv;
var m:array[1..15] of integer;
i,j:byte;
t:integer;
BEGIN
//заполнение случайными числа в диапазоне [-20;20]
//random(41) выдает случ. значение от 0 до 40, если вычесть -20 с концов этого отрезка получится от -20 до 20
for i:=1 to 15 do m[i]:=random(41)-20;
//вывод полученного массива на экран
for i:=1 to 15 do write(m[i],' ');
writeln;//переход на следующую строку
//сортировка пузырковым методом
for i:=1 to 14 do
for j:=i+1 to 15 do
if (m[i]>m[j]) then begin
t:=m[i]; m[i]:=m[j]; m[j]:=t;//обмен элементов массива местами
end;
writeln('Остортированный массив');
//вывод сортированного массива на экран
for i:=1 to 15 do write(m[i],' ');
END.
Объяснение:
1.
использовать Робот
алг 3 полоски
нач
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока слева свободно
закрасить
влево
кц
закрасить
нц пока слева стена
закрасить
вверх
кц
нц пока слева свободно
вверх
кц
нц пока слева стена
закрасить
вверх
кц
кон
2.
использовать Робот
алг
нач
нц пока сверху стена
закрасить
влево
кц
нц пока сверху свободно
влево
кц
нц пока слева свободно
закрасить
влево
кц
закрасить
нц пока слева стена
закрасить
вниз
кц
нц пока слева свободно
вниз
кц
нц пока слева стена
закрасить
вниз
кц
кон
3.
использовать Робот
алг
нач
нц пока слева стена
вверх
кц
влево
вниз
нц пока справа стена
закрасить
вниз
кц
нц пока справа свободно
вправо
кц
нц пока справа стена
закрасить
вниз
кц
кон
4.
использовать Робот
алг
нач
нц пока сверху стена
вправо
кц
вверх
нц пока слева стена
вверх
кц
влево
вниз
нц пока справа стена
вниз
кц
нц пока слева свободно
закрасить
влево
кц
кон
Объяснение: лишние циклы добавлены в случае изменений условия, а именно разной длины стенок и пропастей
