Параметры квартиры, высота потолков, длины и ширины комнат, параметры стен (из чего состоят, какие несущие и тп), где проходит проводка, и тд. Что-то из этого можно измерить, некоторые сведенья легче найти документах или спросить.
Информацию потерять конечно же можно, запросто. Носители ломаются/теряются, данные стираются, изменяются, записываются новые и тд (Ярким примером служит нашумевший вирус WannaCrypt или ПетяА). Обидней всего потерять доступ к данным (например забыть логин/пароль почты). Еще можно забыть где находится информация
Песенка Единиц Единицы мы дружны, мы дружны, мы дружны, Информации верны, мы верны, мы верны, И считать её должны, да должны, да должны. Общее для нас важней, и ценней, и милей Станем мы ещё дружней, веселей и нужней. Все мы связаны друг с другом И гордимся своим кругом. Неразрывны, неразлучны, Вместе нам совсем не скучно. Будем мы Единство дружбой укреплять, Информацию повсюду будем прославлять. Не разлучит нас никто, нас никто, нас никто, Все мы целое одно, мы одно, мы одно. Единицы мы дружны, мы дружны, мы дружны, Информации верны, мы верны, мы верны. Полюбить вы нас должны, да должны. Забывать про нас не нужно Вы живите с нами дружно Мы вам будем Информацию считать Биты, Байты, Килобайты Перед вами здесь стоят Мегабайты, Гигабайты Дружно все вам говорят, Что они стараться будут Информацию считать И ошибки в её счете Ни за что не допускать Ну а вы старайтесь тоже, Ошибаться вам негоже Дружно с нами вы живите Нас получше изучите. Вместе будем мы трудиться Не захочется лениться Никому и никогда Труд нам радостен всегда.Ну а сейчас наш бал завершается Гости все по домам разъезжаются Но Единиц информации они уже не забудут И правильно использовать их будут.
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Объяснение: