<span>Культура несет в себе образ человека, она являет, показывает этот образ человеку. Культура - зеркало, в котором человек себя видит и в котором он себя узнает. Заметим, что человек оказался единственным животным, который узнает себя в зеркале, более того у которого появилась настоятельная потребность видеть себя со стороны. Отделив себя от природы, он отделил себя и от себя, получил способность видеть себя со стороны и относиться к себе самому. В этой способности - трансцендировать себя самого - заложена возможность развития образования как необходимого атрибута всякой культуры. Вся культура нацелена на формирование человека, способного в своих действиях воплотить накопленный сообществом опыт жизнедеятельности, в этом заключена сущность культуры, этим определена ее структура. Но эту свою сущность культура выражает еще и тем, что она формирует специальную деятельность, самой сутью которой становится выражение sensus stricto предназначения культуры.Этой деятельностью стала деятельность педагогическая (от др. греч. paidagоgeо - вести детей, воспитывать детей). Строго говоря, в культуре такой деятельностью вначале было мудрствование, которое выделяло в культуре самые сокровенные смыслы, самые значимые для сообщества ценности, самые важные утверждения.Сентенции, притчи, мифы и рассказы самых опытных и умудренных жизнью людей были квинтэссенцией культуры народа, к которым приобщались новые поколения, проходя в древнейших сообществах обряды инициации. Затем мудрствование превратилось в философию, которая обсуждала вечные мировоззренческие вопросы человеческой жизни и конечные основания культуры, что было важно для понимания образа человека, но что не было непосредственно направлено на формирование человека по этому образу. И тогда возникла педагогика, которая сначала означала просто сопровождение детей в школу, а уж потом и сопровождение их в культуру.<span>Единое мудрствование, которое некогда соединяло в себе и самосознание культуры и приобщение к ней, распалось на философию и педагогику, что привело к отделению непосредственной работы в культуре, непосредственной жизни в ее смыслах и ценностях от обучения ей.</span></span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введи длину массива");
int n = int.Parse(Console.ReadLine());
int[] mass = new int[n];
for (int i = 0; i < n; i++)
{
Console.WriteLine("Введи " + i + " элемент");
mass[i] = int.Parse(Console.ReadLine());
}
for (int i = 0; i < n; i++)
{
if (i == mass[i])
Console.WriteLine("Элемент " + i + " совпадает со своим индексом");
}
Console.ReadKey();
}
}
}
Var
p:real;
k:integer;
begin
Write('Грузоподъемность судна: '); Read(p);
Write('Количество судов: '); Read(k);
Writeln('Грузоподъемность флотилии составит ',p*k)
end.
<u>Пример</u>
Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000
