Синформатикой просто умоляю вас 1: посчитайте, сколько всего компьютеров может быть в интернете. расчет с необходимыми пояснениями запишите в тетрадь. 2: при любой известной вам поисковой системы определите число документов интернет, в которых цитируется описание ip. попробуйте найти собственно описание протокола. (документ rfc - 791)

1) число компьютеров подключенных в интернет может быть сколь угодно большим. но число уникальных  назначенных  ip адресов на все эти компы не может превышать     256 ^ 4 штук  под одним ip может быть несколько компьютеров. 2) goоgle говорит что    387 000 

№1  найдем объем всего сообщения в битах:   1/512 мб=1024/512 кб=2 кб=2*1024 байт=2048 байт=2048*8 бит  найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов:   (2048*8)/2048=8 бит i=8  найдем мощность алфавита n  n=2 в стапени i  n=256  ответ: n=256  №2  найдем сколько занимает один знак:   n=2 в степени i  256=2 в степени i  i=8 бит  найдем сколько займут введенные символы:   8*100=800 бит=800/8 байт=100 байт  ответ: 100 байт  №3  найдем сколько занимает один символ:   n=2 в степени i  65536=2 в степени i  i=16 бит=2 байта  найдем кол-во символов:   4стр*5мин=20стр  20стр*40строк=800строк  800строк*50 симв=40000симв  все символы занимают:   40000*2 байта=80000байт  ответ: 80000байт

Если ты в 10-11, то необходимо с массивом: const n=10; var a: array[1..n] of integer;           i,min,max: integer;           sum: real; begin for i: =1 to n do  readln(a[i]); min: =a[1];   max: =a[1]; for i: =1 to n do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; sum: =(min+max)/2; writeln(sum); end. без массива: uses crt; const n=10; var   x,i,min,max: integer;       sum: real; beginmin: =10000; max: =-10000; for i: =1 to n do beginreadln(x); if x> max then max: =x; if x< min then min: =x; end; sum: =(min+max)/2; writeln(sum); end.