Либо powebank либо внешний накопитель
Картинка здесь черно-белая, поэтому ничего нельзя понять, лучше и правда пойти к учительнице, и попросить ее объяснить данную задачу в данном варианте
Begin
var n := 10;
var a := ArrRandom(n, -50, 50);
println('Исходный массив:');
a.Println;
var noChanges: boolean;
repeat
noChanges := true;
for var i := 0 to n - 2 do
if a[i] > a[i + 1] then
begin
swap(a[i], a[i + 1]);
noChanges := false;
end;
until noChanges;
println('Отсортированный массив:');
a.Println;
end.
Напиши Program house; без каких либо знаков