1) Как построить дом?
1) Нужно приобрести материалы для стройки
2) Купить территорию, где строить
3) Заложить фундамент
4) Начать строить пол, потом стены, не забывать всё укреплять
5) поставить окна
6) сделать утепление
7) поставить двери, замки, сеентехнику, провести электричество
8) построить крышу
9) наклееть обои, и покрасить стены
10) поставить мебель
11) ГОТОВО!
2) Как покрасить крышу дома?
1) купить краску
2) развести краску
3) залесть на крышу
4) начать красить с дальнего угла крыши от лестницы
5) когда докрасишь, дать просохнуть
6) повторяешь шаги 4 и 5 пару раз
7) ГОТОВО!
3) Как заложить фундамент?
я не знаю
const
n = 15;
var
x: array[1..n] of integer;
i, k, t, min: integer;
begin
Randomize;
Writeln('Исходные элементы массива');
min := 1000;
for i := 1 to n do
x[i] := Random(101) - 50;
Write(x[i]:4);
if min > x[i] then begin
min := x[i];
k := i
end
end;
t := x[k]; x[k] := x[1]; x[1] := t;
Writeln;
Writeln('Результирующие элементы массива');
for i := 1 to n do Write(x[i]:4);
Writeln
end.
Исходные элементы массива
-28 -22 -15 3 27 29 34 -29 -49 -37 -19 31 40 -36 4
Результирующие элементы массива
-49 -22 -15 3 27 29 34 -29 -28 -37 -19 31 40 -36 4
Объяснение:
1) Как построить дом?
1) Нужно приобрести материалы для стройки
2) Купить территорию, где строить
3) Заложить фундамент
4) Начать строить пол, потом стены, не забывать всё укреплять
5) поставить окна
6) сделать утепление
7) поставить двери, замки, сеентехнику, провести электричество
8) построить крышу
9) наклееть обои, и покрасить стены
10) поставить мебель
11) ГОТОВО!
2) Как покрасить крышу дома?
1) купить краску
2) развести краску
3) залесть на крышу
4) начать красить с дальнего угла крыши от лестницы
5) когда докрасишь, дать просохнуть
6) повторяешь шаги 4 и 5 пару раз
7) ГОТОВО!
3) Как заложить фундамент?
я не знаю
const
n = 15;
var
x: array[1..n] of integer;
i, k, t, min: integer;
begin
Randomize;
Writeln('Исходные элементы массива');
min := 1000;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if min > x[i] then begin
min := x[i];
k := i
end
end;
t := x[k]; x[k] := x[1]; x[1] := t;
Writeln;
Writeln('Результирующие элементы массива');
for i := 1 to n do Write(x[i]:4);
Writeln
end.
Исходные элементы массива
-28 -22 -15 3 27 29 34 -29 -49 -37 -19 31 40 -36 4
Результирующие элементы массива
-49 -22 -15 3 27 29 34 -29 -28 -37 -19 31 40 -36 4
Объяснение: