Объяснение:
Школьное сочинение-размышление на тему «Я человек», в котором ученик анализирует и раскрывает смысл этой фразы. сочинение: Часто ли мы задумываемся о том, что значит быть человеком? Человек живет на планете Земля, как и многие другие биологические виды. Также питается, размножается и дышит воздухом. Но есть у человека одно отличие от остальных обитателей нашей планеты, которое накладывает на него огромную ответственность. Этим отличием является наш разум человека мыслить, приводит к множеству других особенностей человеческого существа. Люди наделены помимо сознания, даром речи, умением чувствовать и анализировать свои действия. Никто больше на земле, да и возможно, во всей вселенной не обладает такими уникальными качествами. Разум — великий дар, и распорядиться им нужно правильно. По моему мнению, ум сродни редкому таланту. Замечая в ребенке умение красиво и грациозно двигаться, родители старательно развивают талант будущего танцора, видя, какой нежный голос и тонкий слух у малыша, растят прекрасного виртуозного музыканта. Так и сознание человека, требует постоянного развития и самообразования. Человек, который не стремится изменяться в лучшую сторону, который не пытается развивать свои внутренние качества, обречен на полубессознательное, почти животное существование. И имея внешность и жизнь человека, по сути, им не быть. Но какие качества должны присутствовать в каждом, чтобы его можно было назвать человеком с большой буквы? В первую очередь, конечно, сопереживание, умение сочувствовать и понимать других людей. Сопереживание и умение ставить себя на место другого, очень ценный дар. Он развивать в человеке не только любовь ко всему живому, доброту или уважение, но и воспитанность, стойкость и внутреннюю силу. Настоящий человек, всегда готов проявить терпение и заботу, оказать поддержку и нуждающемуся.
uses crt;
type mas=array[1..1000] of integer;
var i,n,k,r: integer;
m:mas;
begin writeln ('введи число') ;
readln (n);
randomize;
for i:=1 to n do
begin
m[i]:=random(45)+1;
write(m[i], ' ');
end;
writeln;
write('введи номер эл-та '); readln (k) ;
write('введи эл-т '); readln (r) ;
writeln;
for i:=n+1 downto 1 do
if i>k then m[i]:=m[i-1];
m[k]:=r;
for i:=1 to n+1 do
write(m[i], ' ');
end.