с давних времен человек и природа тесно взаимосвязаны. в древности первобытные люди полностью зависели от окружающей среды. не понимая сути происходящих природных явлений, люди возводили их в ранг богов. так, и огонь, и вода, и земля, и деревья, и воздух, и гром с молнией считались божествами. чтобы умилостивить их, люди совершали ритуальные жертвоприношения.
но шло время, человек эволюционировал, совершенствовался его мозг. люди научились добывать огонь, строить жилища, создавать орудия труда. человек не только завоевывал свое место среди других племен, но и вознамерился подчинить саму природу.
вопрос взаимодействия с окружающей средой актуален и сегодня. провозгласив себя царем среди всех живых существ, человек забыл, что сам является частью природы, венцом ее творения. и вместо продолжает вести себя агрессивно. ни для кого не секрет, сколь пагубно сегодня сказывается на окружающем мире деятельность человека.
кощунственное, потребительское отношение к сокровищам планеты может иметь действительно катастрофические последствия. ежегодно вырубаются огромные площади лесов, а ведь леса — это легкие планеты, к тому же их уничтожение ведет к уменьшению, а иногда и к исчезновению различных видов животных и растений. куда подевались чистые источники? в воду сбрасываются тонны отходов, и ее опасно не только пить, но даже просто купаться в ней.
воздух отравляют выхлопы миллионов автомобилей, ядовитые выбросы заводов. над стоит такой смог, что по ночам иногда трудно различить на небе звезды. утешает, что еще остаются экологически чистые районы, не тронутые «цивилизацией». например, приезжая в заповедник аскания-нова, мы наслаждаемся чистым воздухом, пронизанным пьянящим запахом степных трав.
человек забывает, что запасы в недрах планеты когда-нибудь иссякнут, и продолжает хищнически добывать полезные ископаемые. и это при том, что ученые уже давно говорят о возможности использования энергии солнца, ветра, приливов и отливов.
создается впечатление, что все забыли о том, что человек не может существовать вне природы. ведь он живет на земле, ест ее плоды, дышит воздухом, пьет воду. и при этом так мало заботится о сохранении среды своего обитания!
хочется вспомнить о том, что в древности люди бережно относились к природе. мы можем судить об этом по дошедшим до нас сказкам, мифам, преданиям, песням, пословицам и поговоркам. важно, чтобы современные дети имели возможность приобщиться к этой сокровищнице. и я считаю, что ведущую роль в этом играет семья и школа. в детстве родители знакомят ребенка с окружающей средой, приучают бережно относиться к ней, заботиться о животных и растениях. в школе любить и уважать природу дети учатся на уроках природоведения и валеологии.
нужно помнить о том, сколько радости дарит нам окружающий мир: распускающийся бутон, шелест дождя, сияние солнца, зелень листвы — как это можно не любить? мы и природа — одна большая семья и должны жить дружно.
var arr : arr2; n : integer; i, sot, spl, snu : byte; ch : char;
begin write('Хотите использовать заданный по умолчанию массив? (y/n): '); ch := readkey; writeln(ch); sot := 0; spl := 0; snu := 0; if ((ch='y') or (ch='Y')) then begin { Используем заданный по умолчанию } for i:=1 to 12 do begin if arr1[i] > 0 then inc(spl); if arr1[i] < 0 then inc(sot); if arr1[i] = 0 then inc(snu); write(arr1[i], ' '); end; writeln; end else begin { Создаём и заполняем новый массив } write('Введите желаемый размер массива: '); readln(n); setLength(arr, n); writeln('Введите элементы массива:'); for i:=0 to high(arr) do readln(arr[i]); for i:=0 to high(arr) do begin if arr[i]>0 then inc(spl); if arr[i]<0 then inc(sot); if arr[i]=0 then inc(snu); write(arr[i], ' '); end; writeln; end;
с давних времен человек и природа тесно взаимосвязаны. в древности первобытные люди полностью зависели от окружающей среды. не понимая сути происходящих природных явлений, люди возводили их в ранг богов. так, и огонь, и вода, и земля, и деревья, и воздух, и гром с молнией считались божествами. чтобы умилостивить их, люди совершали ритуальные жертвоприношения.
но шло время, человек эволюционировал, совершенствовался его мозг. люди научились добывать огонь, строить жилища, создавать орудия труда. человек не только завоевывал свое место среди других племен, но и вознамерился подчинить саму природу.
вопрос взаимодействия с окружающей средой актуален и сегодня. провозгласив себя царем среди всех живых существ, человек забыл, что сам является частью природы, венцом ее творения. и вместо продолжает вести себя агрессивно. ни для кого не секрет, сколь пагубно сегодня сказывается на окружающем мире деятельность человека.
кощунственное, потребительское отношение к сокровищам планеты может иметь действительно катастрофические последствия. ежегодно вырубаются огромные площади лесов, а ведь леса — это легкие планеты, к тому же их уничтожение ведет к уменьшению, а иногда и к исчезновению различных видов животных и растений. куда подевались чистые источники? в воду сбрасываются тонны отходов, и ее опасно не только пить, но даже просто купаться в ней.
воздух отравляют выхлопы миллионов автомобилей, ядовитые выбросы заводов. над стоит такой смог, что по ночам иногда трудно различить на небе звезды. утешает, что еще остаются экологически чистые районы, не тронутые «цивилизацией». например, приезжая в заповедник аскания-нова, мы наслаждаемся чистым воздухом, пронизанным пьянящим запахом степных трав.
человек забывает, что запасы в недрах планеты когда-нибудь иссякнут, и продолжает хищнически добывать полезные ископаемые. и это при том, что ученые уже давно говорят о возможности использования энергии солнца, ветра, приливов и отливов.
создается впечатление, что все забыли о том, что человек не может существовать вне природы. ведь он живет на земле, ест ее плоды, дышит воздухом, пьет воду. и при этом так мало заботится о сохранении среды своего обитания!
хочется вспомнить о том, что в древности люди бережно относились к природе. мы можем судить об этом по дошедшим до нас сказкам, мифам, преданиям, песням, пословицам и поговоркам. важно, чтобы современные дети имели возможность приобщиться к этой сокровищнице. и я считаю, что ведущую роль в этом играет семья и школа. в детстве родители знакомят ребенка с окружающей средой, приучают бережно относиться к ней, заботиться о животных и растениях. в школе любить и уважать природу дети учатся на уроках природоведения и валеологии.
нужно помнить о том, сколько радости дарит нам окружающий мир: распускающийся бутон, шелест дождя, сияние солнца, зелень листвы — как это можно не любить? мы и природа — одна большая семья и должны жить дружно.
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.