ответ:1. Гигантское скопление звезд, планет, газов, пыли, образующее что-то типа острова, медленно вращающегося в космическом пространстве. (Галактика.)
2. Звездоподобные планеты, малые тела Солнечной системы. (Астероиды.)
3. Океан воздуха, окружающий Землю и имеющий в высоту несколько сотен километров. (Атмосфера.)
4. Самая маленькая планета, ближе всех расположенная к Солнцу. (Меркурий.)
5. Часть атмосферы Солнца, простирающаяся на миллионы километров. (Корона.)
6. Эта планета Солнечной системы носит имя богини красоты и любви, самая яркая планета, затмевающая своим блеском все звезды. (Венера.)
7. Небесное тело небольших размеров, состоящее из замороженной воды и газа вперемешку с частицами пыли и камней. Движется вокруг Солнца по вытянутой орбите и имеет «хвост». В древности их называли «хвостатыми чудовищами». (Комета.)
8. Выдающийся греческий-ученый античности, создатель теории неба (II в. н. э.). (Птолемей.)
9. Планета-гигант, названа в честь бога Олимпа, повелителя молний. Она в сотни раз больше Земли и окружена 16 спутниками. (Юпитер.)
10. Туманные пятна на звездном небе из скопления звезд, образующие. (Млечный) Путь.
11. Группа звезд, которые образуют знакомые нам буквы и фигуры. (Созвездие.)
12. Созвездие, находящееся рядом с созвездием Гончие Псы и получившее звание пастуха. (Волопас.)
13. Метеорит, падение которого произошло 30 июня 1908 г. на территории Сибири. (Тунгусский.)
14. Астроном, на памятнике которому написаны слова: «Остановивший Солнце, сдвинувший Землю». Его главное открытие - вращение Земли вокруг Солнца. (Коперник.)
15. Английский астроном и геофизик, построивший первые солнечные часы. Он привлек внимание ученых к туманностям и кометам. (Галлей.)
Пойдет?
const M = 10; {число строк таблицы}
N = 10; {число столбцов таблицы}
type LINE = array [1..n] of integer;
TAB = array [1..m] of LINE;
var s, i, j:integer; MAS: TAB;
procedure VVODMASSIV (var MAS: TAB);
begin
¦ for i := 1 to M do
¦ for j := 1 to N do
¦ readln (MAS [i][j]);
end;
procedure VIVODMASSIV (var MAS:TAB);
begin
¦ for i := 1 to M do
¦ begin
¦ ¦ for j := 1 to N do
¦ ¦ write (MAS [i][j]:4,' '); writeln;
¦ end;
end;
procedure OBRABOTKA (MAS: TAB; var SUM: integer);
begin
¦ SUM := 0;
¦ for i := 1 to M do
¦ for j := 1 to N do
¦ if j > i then SUM := SUM + MAS [i][j];
end;
begin
| VVODMASSIV (MAS);
| writeln ('исходный массив'); VIVODMASSIV (MAS);
| OBRABOTKA (MAS, s); writeln;
| writeln ('сумма элементов = ',s);
end.