Решите, , кто умный составьте программу, которая заполняет массив a [1..10]случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает.выведите на экран исходный и полученный массивы; ,

Язык  python2.7 from  random  import randrange a  =  map(lambda  x: randrange(0,10),  range(10)) print  a a  =  [a[i]*3  if  i%2  else  a[i]*2  for  i  in  range(len(a))] print  a

Const     n = 13; var     a: array[1..n] of integer;     i,c: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(' ',a[i]);       end; writeln; write('введите число: '); readln(c); i: =1; while (i< n)and(a[i]< > c) do     begin     i: =i+1;     end; if a[i]=c then writeln('номер элемента, равного ',c,': ',i) else writeln('в массиве нет таких элементов') end.

Ошибки две: 1) не забывайте обнулять переменную k. у вас она не обнулялась, и так как каждый раз прибавлялось что-то, то максимум достигался на последнем числе. 2) нужно не количество, а сумма делителей, поэтому к k надо прибавлять не 1, а i. пример исправленной программы: var   max, i, j, k, a, b, z: integer;   begin   max : = 0;   readln(a, b);   for i : = a to b do   begin     k : = 0;     for j : = 1 to i do       if (i mod j) = 0 then          k : = k + j;     if k > max then      begin       max : = k;       z : = i;     end;   end;   writeln(z); end.