Может ли мошенничество быть электронным риском? 1.да, так как часто мошенники для достижения своих целей прибегают к технических средств 2.нет, потому что мошенничество осуществляется только в реальной жизни, а не в интернете

Да. 1т.к. мошенничество есть и в интернете

1. Да, так как часто мошенники для достижения своих целей прибегают к технических средств.

Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время.  Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания  и многое другое.  Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.

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.