Начертательная .нужна 3 аид и изометрия, спочно

своим близким, друзьям, и всему живому это всегда хорошо, должна идти от чистого сердца, тогда она принесет пользу

2. можно также подарить лучшему другу или подруге маленький подарочек просто так, они это обязательно оценят и им будет приятно внимание

3. больше читать, стремиться стать лучше, доброе дело для своей души, можно также найти любимое занятии, которое станет по душе и будет радовать и приносить пользу окружающим

4. простить обиды, ведь самый красивый поступок- простить, это и делает человека милосердным и добрым. Простить, значит сбросить с себя весь груз, который тяготил назад и не давал шанс идти вперёд.

5. поддерживать близких и друзей в трудные минуты, чтобы они почувствовали заботу, а если в семье есть кто то из младших, то можно просто поиграть с ними, почитать сказку, поиграть в какие нибудь игры, это таже забота и ..

Vb.     dim a(5) as integer     dim min as integer = a(0)     for i as integer = 1 to a.length - 1                      if i mod 2 = 0 then                              if a(i) > 0 and a(i) < min then                              min = a(i)                                  end if        '             end if         nextpascal.const n=5; var    a: array[1..n] of byte;     i,imin: byte; begin   writeln('исходный массив: ');     for i: =1 to n do    begin      a[i]: =random(21);       write(a[i],' ');     end;     writeln;     imin: =1;   for i: =2 to n do    begin      if a[i]< a[imin] then imin: =i;         end;   writeln('минимум = ',a[imin]); end.