Синформатикой напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [100; 200] и находит в нём пару соседних элементов, сумма которых минимальна.

Var a: array[1..20] of integer; i,min,ind: integer; begin  randomize; for i: =1 to 20 do begin a[i]: =random(100)+100; write(a[i]: 4); end; writeln; min: =a[1]+a[2]; for i: =2 to 19 do if a[i]+a[i+1]< min then  begin  min: =a[i]+a[i+1]; ind: =i; end; write('сумма минимальна между ',ind,' и ', ind+1, ' элементом'); end.

C++: for(int i = 0; i< 20; i++){ a[i]=rand()%101+100; } int pos=0; for(int i = 0; i< 20; i++){ if(a[i]+a[i+1]< a[pos]+a[pos+1]){ pos=i; }

если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.

если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной

получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел. 

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.