Заполнить массив из 10 элементов случайными числами в интервале и выполнить циклический сдвиг массива вправо. формат ввода и вывода данных: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 результат: 0 4 -5 3 10 -4 -6 8 -10 1

Const   n = 10; var   i, s: integer;   a: array[1..n] of integer; begin   writeln('введите элементы массива через пробел');   for i : = 1 to n do read(a[i]);   s : = a[n];   for i : = n downto 2 do a[i] : = a[i - 1];   a[1] : = s;   for i : = 1 to n do write(a[i]: 4); end. тестовое решение: введите элементы массива через пробел 4 -5 3 10 -4 -6 8 -10 1 0     0    4  -5    3  10  -4  -6    8 -10    1

Первый пират лжёт(второй сказал про 30 кладов, третий  - про 26). 1)остальные пираты говорят правду(кладов или 30, или 26). раз 1 сказал правду, а оба солгали, то у них 6 + 4*2 = 14 кладов. всех кладов у пиратов x, у  остальных x-14 раз остальные говорят правду, то (x-14) mod  6=0 14 mod 6 = 2 x mod 6 = 2 26 mod 6 = 2, т. е. пиратов 3 + (26-14)/6  = 5 2)пираты солгали следовательно, лгали все, тогда пиратов может быть сколько лишь бы кладов было ровно в 4 раза больше. я думаю, первое решение подойдёт лучше

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 const   n=10; begin   var c: =readarrinteger('введите 10 чисел: ',10);   writeln('сумма отрицательных равна ',c.where(x-> x< 0).sum);   swap(c[0],c[4]); c.println;   // сортировка   for var i: =0 to n-2 do       for var j: =0 to n-2 do           if c[j]> c[j+1] then swap(c[j],c[j+1]);   c.println end. тестовое решение введите 10 чисел: -45 18 20 40 -4 -7 -38 -26 6 -50 сумма отрицательных равна -170 -4 18 20 40 -45 -7 -38 -26 6 -50 -50 -45 -38 -26 -7 -4 6 18 20 40