. Определи сумму двух наибольших элементов массива arr.

Программа:

Pascal:

const arr: array[1..10] of integer = (-5, 2, 4, -6, 12, 10, -3, 12, 15, 2);

var max1, max2: integer;

begin

 max1 := arr.max;

 max2 := -MAXINT;

 for var i := 1 to 10 do

   if (arr[i] > max2) and (arr[i] <> max1) then max2 := arr[i];

 writeln(arr, #10, max1 + max2);

end.

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.