Ну вот, как то так...
1. Вокруг собственной оси и вокруг солнца.
2. Земля в форме шара.
3. S луны 38, 000,000 км²
4. Период времени. 223 синодических месяцев.
5. Состоит из коры (верхней мантии, средней мантии, нижней мантии и ядра) поверхность покрыта реголитом
6. Земная группа планет и группа планет - гигантов.
7. Вращается в направлении, обратном её движению вокруг солнца.
8. Вращается вокруг своей оси за 6 дней и 9 часов.
9. Из за красной пыли
10. Фобос (страх), деймос
11. Меркурий
12. Изменения были бы, но нет так ярко выражены
13. Юпитер
14. Есть у Венеры, Земли, Меркурия, Марса.
15. У юпитера
16. Титан?
17. Ось вращения перпендикулярна к плоскости орбиты. Изменений освещения нет.
18. Когда сатурн движется по орбите его кольца 2ы за 1о обращение планеты повернуты к земле ребром, а т.к толщина колец маленькая то их сложно разглядеть.
19. Пояс астероидов/малые планеты
20. Движутся вокруг солнца, в ту же сторону, сто и большие планеты.
21. Космическое тело от нескольких граммов, до нескольких десятков тонн
22. Небесное тело имеющее тумманные, светящиеся полосы в форме хвоста.
23. Облако
24.
25. Изменяется вид освещенной солнцем луны
26. Меркурий, Венера, земля, марс плутон
27. Состоят из пыли и льда
28.
29.
30.
Поделитесь своими знаниями, ответьте на вопрос:
var A:array[1..10] of integer;
i, k, max: integer;
BEGIN //Случайным образом присвоим значения элементам массива и выведем его на экран
for i:=1 to 10 do A[i]:=random(50);
write ('Массив: ');
for i:=1 to 10 do write(A[i], ' ');
//Здесь будем сравнивать значения из массива и найдем максимальное
max:=A[1];
for i:=2 to 10 do
if A[i]>max then max:=A[i];
writeln;
writeln ('Наибольшее значение в массиве:', max);
END