(×<17)_(×<16)×=2информатика​

var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:4); end;
writeln;
for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr(a[i]) else a[i]:=abs(a[i]);
for i:=1 to 15 do write(a[i]:4);
end.

var a:array[1..15]of integer;

i:integer;

begin

for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;

writeln;

for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5;

for i:=1 to 15 do write(a[i]:3);

end.

var a:array[1..15]of integer;

i:integer;

begin

for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;

writeln;

for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5;

for i:=1 to 15 do write(a[i]:3);

end.

var a:array[1..15]of integer;

i,k:integer;

begin

for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;

writeln;

k:=a[3];

a[3]:=a[11];

a[11]:=k;

for i:=1 to 15 do write(a[i]:3);

end.

1) достаточно большой объем

2) не очень большая цена (по сравнению в переносными внешними жесткими дисками)

3) быстрый переноса информации

4) не требуется домолнительных прграмм для сохранения информации

5) есть возможность работать прямо с носителя.

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