Буддизм - религиозное учение, ставшее мировой религией. Основателем этой возникшей в Индии религии считается царевич Сиддхартха Гаутама (623—544 гг. до н. э.). Его назвали Буддой, т. е. «просветлённым высшим знанием». По преданию, царевич, узнав о страданиях народа, бежал из дворца и стал отшельником. Согласно его учению, вся жизнь человека — непрерывный путь страданий, причина которых неудовлетворённые земные желания. После смерти страдания не прекращаются, так как душа не умирает, а перерождается снова и снова. Если человек вёл неправедную жизнь, то в новом рождении он может оказаться представителем низшей касты или презираемым всеми животным. Если же он вступил на указанный Буддой путь спасения, сумел подавить в себе земные страсти, то его ждёт «благоприятное возрождение» (душа возродится в представителе высшей касты). Идеал человека — стать «просветлённым», освободиться от мирской жизни, получить полное духовное освобождение, приблизиться к Будде. Тогда наступает полное блаженство, прекращение перерождений и бессмертие души.
Как добиться идеала? Будда учил: «Обуздай глаза, чтобы не соблазняться обольстительными вещами, обуздай уши, язык, тело, обуздай речь, ум, обуздай всё». Буддизм учил уходу от мирской жизни, идеал — стать монахом и жить в монастыре, подавив в себе земные желания.
Буддизм призывал верующих к постоянному самосовершенствованию, указывал, что путь к спасению находится в руках самого человека независимо от его общественного положения. Любой верующий, встав на путь, указанный Буддой, может стать праведником и достигнуть блаженства.
Предложенный буддизмом путь к спасению, доступный любому человеку независимо от его общественного положения, стал одной из причин распространения буддизма и превращения его в мировую религию.
Объяснение:
type arr=array[1..100] of integer;
var
a:arr;
i,j,k,n:integer;
procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}
var
i:integer;
begin
write(s);
write('[');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n],']');
end;
procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}
var
i:integer;
begin
write(s);
for i:=1 to n do read(a[i]);
end;
begin
repeat
write('n(1..100)=');
readln(n);
until (n>0) and (n<101);
EnterArr(a,n,'A=');
k:=a[1];
for i:=1 to n do if a[i]<k then k:=a[i];
writeln('Min=',k);
PrintArr(a,n,'A_orig=');
for i:=1 to n do if a[i]=k then a[i]:=i*i;
printArr(a,n,'A_new=');
readln;
end.