No1. ( ) Із тераріуму втекли х гадюк, у кобр та z гюрз. Довжина кожної гадюки 1м, кожної кобри - 1м 30см, а гюрзи - 1м 15см. Яка довжина отруйних змій втекла з тераріуму? No2. ( ) Задані два числа. Знайти їх середнє арифметичне.
No3. ( ів) Петро задумав число і нікому його не назвав. Друзі спіймали його і примусили подвоїти задумане число, а потім додати до нього 5. І тільки після того, як вони пообіцяли Петрові благодійну до на контрольній з математики, він зізнався, що вийшло число n. Визначте, яке число задумав і приховав від своїх друзів Петро.
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p<s then writeln('summa')
else writeln('ravni');
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.