Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время. Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания и многое другое. Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.
1) Не понятно задание, в комментах допишу, как только пойму. 2)var t,c:array [1..10] of integer; i,sum:integer; begin for i:=1 to 10 do begin t[i]:=random(20+i); c[i]:=random(20000+i); end; for i:=1 to 10 do begin sum:=sum+t[i]*c[i]; end; for i:=1 to 10 do begin writeln('Количество товара ',i,' вида ',t[i],' Стоимость товара ',i,' вида ', c[i]); end; writeln('Общая сумма ',sum); end. 3) Мы опишем его так ves: array [1..31] of real; 4) var sum,x:real; n,i:integer; begin read(n); for i:=1 to n do begin read(x); sum:=sum+x; end; writeln(sum/n); end.
