Сделайте из Рандома, ввод с клавиатуры : const n=10;
var a:array[1..n] of integer;
kk,k,
i,{начало максимального количества 0}
i1,
d,{максимальное количество 0}
d1,
max:integer;
sk:integer;{колчество последовательностей с максимальным количеством 0}
f:boolean;
begin
randomize;
sk:=1;
i:=0;d:=0;i1:=0;d1:=1;
a[1]:=random(51);
max:=a[1];
write(a[1],' ');
if a[1]=0 then begin i1:=1;d1:=1 end;
for k:=2 to n do
begin
kk:=random(2);
if odd(kk) then a[k]:=0
else a[k]:=random(51);
write(a[k],' ');
if a[k]>max then max:=a[k];
if a[k]=0
then
if a[k-1]=0 then inc(d1)
else begin
if d1=d then inc(sk);
if d1>d then begin d:=d1;i:=i1;sk:=1 end;
d1:=1;
i1:=k;
end
end;
if d1=d then inc(sk);
if d1>d then begin d:=d1;i:=i1;sk:=1 end;
writeln;
writeln('максимальное количество нулей ',d);
writeln('количество последовательностей, содержащее максимальное количество нулей ',sk);
writeln('первая позиция вхождения максимального количества нулей ',i);
writeln('максимальный элемент ',max);
k:=i;
while k<=n do
begin
d1:=0;
i1:=k;
kk:=k;
while (kk<=n)and(a[kk]=0)and(sk>0) do begin inc(d1);inc(kk) end;
if d1=d then
begin
for k:=i1 to i1+d-1 do a[k]:=max;
dec(sk)
end;
inc(k)
end;
for k:=1 to n do write(a[k],' ') ;
readln;
end.

Можливі значення типів даних Використання

Текстовый Алфавітно-цифрові дані

Поле МЕМО Алфавітно-цифрові данні, речення, абзаци, тексти

Числовой Числові дані

Дата/время Дати і час

Денежный Дані про грошові суми, які зберігаються з 4 знаками після коми

Счетчик Унікальне довге ціле, яке генерується Access при створенні кожного нового запису

Логический Логічні дані(Використовується для збереження значень Істина і Неправда, Так і Ні)

Поле объекта OLE Малюнки, діаграми, фрагменти таблиць і інші об'єкти OLE з різних додатків Windows

Объяснение:

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

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

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

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

воздух отравляют выхлопы миллионов автомобилей, ядовитые выбросы заводов. над стоит такой смог, что по ночам иногда трудно различить на небе звезды. утешает, что еще остаются экологически чистые районы, не тронутые «цивилизацией». например, приезжая в заповедник аскания-нова, мы наслаждаемся чистым воздухом, пронизанным пьянящим запахом степных трав.

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

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

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

нужно помнить о том, сколько радости дарит нам окружающий мир: распускающийся бутон, шелест дождя, сияние солнца, зелень листвы — как это можно не любить? мы и природа — одна большая семья и должны жить дружно.