Плис все 45 1)каждому пушному зверьку в возрасте от 1-го до 2-х месяцев полагается дополнительный стакан молока в день, если его вес меньше 3 кг. количество зверьков, возраст и вес каждого известны. выяснить скольколитров молока в месяц необходимо для зверофермы. один стакан молока составляет 0, 2 литра. 2) если вес пушного зверька в возрасте от 6-ти до 8-ми месяцев превышает 7 кг, то необходимо снизить дневное потреблениевитаминного концентрата на 125 г. количество зверьков, возраст и вес каждого известны. выяснить на сколько килограммов в месяц снизится потребление витаминного концентрата сделать в икселе )

Решение прикреплено в файлах, в 1 использован ручной ввод веса и возраста, в 2 - случайный по заданным границам:

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

var k, i, n: integer ;

a: array [1..100]of integer ;

begin

write('введите кол-во элементов в массиве ') ;

read(n) ;

for i: =1 to n do begin

a[i]: =random(100)-50;

write(' ', a[i]) ;

end;

k: =0; writeln;

write ('кол-во отрицательных элементов ') ;

for i: =1 to n do begin

if a[i]< 0 then k: =k+1;

end;

write(k); k: =0;

writeln;

write ('сумма четных элементов ') ;

for i: =1 to n do begin

if a[i] mod 2=0 then k: =k+a[i];

end;

write(k) ; k: =1;

writeln ;

write('произведение элементов в интервале [1; 20] ');

for i: =1 to n do begin

if (a[i]> 0)and(a[i]< 21) then k: =k*a[i];

end;

write(k) ;

end.