Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.
Одной из первых форм письма, являлась настенная и наскальная живопись.
В этом случае древние люди использовали в качестве материала для письма уголь и в основном писали и рисовали на скалах.
Во времена развития Шумерской цивилизации, древние Шумеры писали на мокрых глиняных табличках при твердого предмета, в основном используя для этого кости животных или деревянные палочки.
В древнем Египте писали на папирусе при кисти из тростника, которой и наносили иероглифы. Помимо папируса, используя для этого деревянные дощечки и каменные здания.
