Нужно быстро решить 9 и 10 , расписать как решать!

Что, прям целый доклад?))
Ну, расскажу своими словами.
Есть метр,а есть километр. 1 километр=1000 метров. Почему? Есть такие физические приставки, кило означает 10^3. Вот и получается метр*10^3=километр. В жизни гораздо проще добавить приставку, чем говорить 7300 метров, вместо 7,3 километра. Ну это так, введение, про физические приставки
Есть следующие физические приставки:
кило = 10^3
мега = 10^6
гига = 10^9
терра = 10^12
пета = 10^15
экса = 10^18
зетта = 10^21
йотта = 10^24
Вот отсюда и пошли килобайта, мегабайты, гигабайты
Но так исторически сложилось, что в одном килобайте не 1000 байт, а 1024... Это длинная история, почему так. И получается, что килобайт равен 2^10 байт.
килобайт = 2^10 байт
мегабайт = 2^20 байт
гигабайт = 2^30 байт
и т.д.
йоттабайт = 20^80 = 1 208 925 819 614 629 174 706 176 байт
Это невероятно огромное число (1,2 септиллиона). 
Cisco прогнозирует, что в 2016 году настанет эта зеттабайта,то есть весь мировой трафик (за весь 2016 год) превысит отметку в 1 зеттабайт. Всего лишь зеттабайт, это 1/1024 часть йоттабайта.
Ну или если считать в жестких дисках емкостью 1 террабайт (1024 гб), то получится, 1 йоттабайт = 1,099 триллиона (1 099 511 627 776) жестких дисков емкостью 1 террабайт
это всё, что я мог объяснить своими словами.
Ну, могу еще добавить, что
1 йоттабайт = 1 125 899 906 842 624 гигабайт
1 йоттабайт = 9 671 406 556 917 033 397 649 408 бит (9,6 септиллиона) 

Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(21)-10;
 write(a[i],' ');
 end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max = ',max,'  min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
 if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln; 
end.

Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2 
max = 10  min = -6
Измененный массив:
  180  216  252    0 -600  180 -200  360  252 -200