30 . как переименовать файл, добавив к его названию случайное число?
pascal

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

Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.

A2 = 55 a4=70 a8 = 90 a=16 208