Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время. Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания и многое другое. Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.
1) const n=?; //Сюда поставить любое нужное n Var a:array[1..n] of real; i,x,k:integer; s:real; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; s:=0; k:=0; for i:=1 to n do begin s:=s+a[i]; k:=k+1; end; s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); readln; End.
2) Const n=?; Var a:array[1..n] of integer; i,max,min:integer; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; min:=a[1]; max:=a[1]; for i:=1 to n do if (i mod 2)=0 then if a[i]>max then max:=a[i]; for i:=1 to n do if (i mod 2)<>0 then if a[i]<min then min:=a[i]; writeln('max=',max); writeln('min=',min); readln; End.
