!Умоляю!Какими возможностями обладают мобильные устройства, которые вы используете в повседневной жизни?

1.Program arrays;const n = 15;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do a[i]:= random(-20, 20);  for i:=1 to n do  begin    if a[i] mod 2 = 0 then      a[i]:=sqr(a[i]);  end;  for i:= 1 to n do write(a[i], );end.2.Program arrayss;const n = 10;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do read(a[i]);  swap(a[1], a[10]);  for i:= 1 to n do write(a[i], );end.

Ну, что-то я тут ничего не пойму!

Коллаж можно скачать такой:Laougt

1..10 -номера масивово
1)2<1 n=2
2)3>2 n=2
3)4<2 n=4
4)5<4 n=5
5)6>5 n = 5
6)7>5 n=5
7)8>5 n=5
8)9>5 n=5
9)10>5 n=5
10)n=MAS[5]=5