Что, прям целый доклад?)) Ну, расскажу своими словами. Есть метр,а есть километр. 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 септиллиона)
На 1 пункт: program mueta; uses crt; const n=(любому числу, например 3); var k:array[1..n]of integer; s:array[1..n]of integer; begin clrscr; for i:=1 to n do begin writeln('введите эл-ты массива s[i]='); readln(s[i]); end; for i:=1 to n do begin if s[i]>0 then writeln('s[i] положительное число', s[i]); ENd. 2)На второй тоже самое только нужно заменить массив на(k) условие нужно поменять на s[i]mod 2=0