Как изменилась бы поверхность земли, если бы изменилось расстояние между ней и солнцем? p.s 20 °за правельный°ответ !

Если земля будет слишком близко будет к солнцу начнуца сильные засухи и испарение воды или вообше пожары, если очень далеко то наступит обычнейший ледниковый период

Билл Гейтс, Марк Цукерберг, Шон Паркер, Торвальдс Линус… Все эти люди прославились благодаря особому таланту в  программировании. Работа в такой области считается преимущественно мужской, но первым программистом является женщина. Это дочь знаменитого английского поэта Байрона – Ада Лавлейс. Именно благодаря ей появились первые приёмы управления вычислениями, которые до сих пор используются в современном программировании.

В настоящее время профессия программиста стала очень востребованной. Прежде всего, это связано с развитием компьютерных технологий и Интернета. Такие специалисты участвуют в разработках различных программ для текстовых редакторов, сайтов, игр, систем видеонаблюдения, сигнализации и т.д.

1.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if (a[i] = x) and (counter < 1)

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

2.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if a[i] = x

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

Язык PascalABC