Допустим, массив уже задан, поэтому его ввод писать не буду. Kol - количество элементов массива
var
mas, mas_ob: array[0..999] of integer;
i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;
begin
kol_null := 0;
sum := 0;
sum_nech := 0;
sum_ch := 0;
i1 := 0;
max := -10000;
for i := 0 to kol do
begin
if mas[i] <> 0 then kol_null += 1; //2
sum += mas[i]; //3
if mas[i] mod 2 <> 0 then sum_nech += mas[i];//4
if mas[i] mod 2 = 0 then sum_ch += mas[i]; //5
if mas[i] < 0 then mas[i] := abs(mas[i]); //6
if mas[i] mod 21 = 0 then mas[i] := 1; //7
if mas[i] > max then max := mas[i]; //11
end;
pp := mas[0];//8
mas[0] := mas[kol]; //8
mas[kol] := pp;//8
for i := kol downto 0 do //10
begin
mas_ob[i] := mas[i];
i1 += 1;
end;
writeln('Количество ненулевых элементов: ', kol_null);
writeln('Сумма всех элеметов: ', sum);
writeln('Сумма нечетных элеметов: ', sum_nech);
writeln('Сумма четных элеметов: ', sum_ch);
writeln('Максимальный элемент: ', max);
end.
Приборы показывали уровень радиации, и был он так необычайно высок, что специалисты пришли в ужас. Первое предположение: утечка произошла из реактора на их станции. Но тщательная проверка оборудования и контролирующих его приборов ничего не выявила. И тем не менее сенсоры показывали, что уровень радиации в воздухе в четыре раза превышает предельно допустимые нормы.
На территории, окружающей станцию, повторилось то же самое - образцы почвы и растений содержали невероятно высокое количество радиоактивных частиц. Швеция, как и многие другие страны Европы, подверглась нападению молчаливого, невидимого, не обладающего ни цветом, ни запахом убийцы.
Частично разрушившийся ядерный реактор стал причиной трагедии, которая до сих пор приносит смерть, страдания и нищету. Тысячи людей, чьих имен мы не знаем, умерли от злокачественных опухолей и разрушения кроветворной системы, вызванных ядерным взрывом. В результате воздействия радиации на людей и домашних животных стали появляться кошмарные потомки - деформированные мутанты. Так, все газеты мира обошел фотоснимок жеребенка, который родился с пятью ногами. Земля на долгие времена покрылась незаживающими рубцами, и, может быть, впервые люди задумались - не перевесит ли еще одно такое бедствие всю пользу, получаемую от ядерной энергии, даже если она служит мирным целям?
К тому времени, когда ученые Форсмарка обнаружили массированное присутствие радиации в атмосфере, сильные ветры разнесли ее по всей Европе. Легкий дождик, пролившийся на соленые болота Бретани, превратил молоко в вымени коров в токсическое вещество. Обильные дожди, напоившие влагой холмистую землю Уэльса, сделали нежную баранину отравленной. Токсичные дожди в Финляндии, Швеции и в Западной Германии.
Западные правительства начали оказывать мощное дипломатическое давление на Советский Союз, требуя детального объяснения того, что произошло. Но слишком мало было в ту пору людей, кто, подобно Телятникову, уже в эти первые часы осознал всю чудовищность катастрофы. "Как только я через ворота, я сразу понял, что это - не обычный случай, - рассказывал он. - Слышен был только шум работающих машин да треск огня. Пожарные знали, что они должны делать, и сразу же приступили к выполнению своих обязанностей. Стрелки приборов, отмечающие уровень радиации, замерли на максимальной цифре - их зашкалило. В сознании вспыхнула мысль о семье, но тут же унеслась прочь. Никто из нас даже не заикнулся об угрозе радиации. Больше всего нас страшило то, что мы не сможем продержаться до прибытия подкрепления. Спустя час после возникновения пожара с крыши, расположенной в непосредственной близости от поврежденного реактора, была снята группа пожарных с симптомами радиационного облучения. Когда я подошел к пяти своим парням и попросил их разведать ситуацию, они стремглав бросились на крышу. Сегодня никого из них нет в живых".