Искусство — форма творчества духовной самореализации человека посредством чувственно- выразительных средств (звука, пластики тела, рисунка, слова, цвета, света, природного материала и т.д.). Особенность творческого процесса — в нерасчлененности его субъективно- объективной обусловленности. Возникая как результат творчества конкретного субъекта, произведение искусства в своем бытии обретает надличностный характер.
Искусство – это процесс творческого осмысления бытия во всех его проявлениях. Мир реальный и нереальный заставляет удивляться многих зрителей. Сила духовного преображения выразительных средств в изобразительном искусстве как бы погружает в фантазийные переживания художников. Буйство красок или линий, пятен и ёмких форм как бы зрительно материализует существующие переживания авторов. Поток подсознательной информации, выходящий из-под карандаша или кисти художника, кружит мысли в умах людей, созерцающих их творения.
" Цифровая революция, захватившая со второй половины ХХ века весь социум, коснулась и мира искусства, оказав огромное влияние на его становление и развитие. Взаимодействие технологий и искусства имела место на протяжении всей истории развития человечества. Технология в этом альянсе носила преимущественно прикладной характер, оставалась посредником между Идеей художника и ее материальным воплощением. Продолжая трансформировать плоскость традиционного искусства технологии сегодня настолько захватывают творца, что его эксперименты с «материалом» заслоняют собой все иные смыслы и назначения искусства, создавая искусство технологий.
ВСЕГДА РАДА )))
Var mas:array[1..20] of integer;
a,b,i,sum:integer;
Beginsum:=0;
For i:=1 To 20 Do
beginmas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
end;Writeln('Введите a,b');
Readln(a,b);For i:=1 To 20 Do
begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end. 2) Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end. 3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end; end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.
