Дан массив y(11). составить программу обработки массива: 1. найти сумму отрицательных элементов массива среди элементов, стоящих на нечетных местах. 2. заменить все элементы, стоящие на нечетных местах, значениями их квадратов. 3. подсчитать количество 1, стоящих на четных местах. все это должно быть в одной , решите качественно, много . ах, да, все это на языке паскаль.

Var y: array [1..11] of integer; var i, sum, n: integer; begin randomize; for i: =1 to 11 do  begin  y[i]: =-10+random (21);   write (y[i], ' ');   end; sum: =0; for i: =1 to 11 do  begin  if (i mod 2< > 0) and (y[i]< 0) then sum: =y[i]+sum; //№1  if i mod 2< > 0 then y[i]: =y[i]*y[i]; //№2  if (i mod 2=0) and (y[i]=1) then inc (n); //№3 end; writeln; writeln ('сумма =', sum); writeln ('количество 1 на четных местах =', n); end.

Const   n = 11; var   x: array[1..n] of integer;   i, k, d, s: integer; begin   randomize;   writeln('элементы массива');   k : = 0; s : = 0;   for i : = 1 to n do   begin       d : = random(11) - 5;       write(d: 3);       if (i mod 2) = 0 then begin { четное место }           if d = 1 then inc(k);           x[i] : = d       end       else begin           if d < 0 then s : = s + d;           x[i] : = sqr(d)       end   end;   writeln;   writeln('результирующий массив');   for i : = 1 to n do write(x[i]: 3);   writeln;   writeln('количество единиц на четных местах равно ', k);   writeln('сумма отрицательных элементов на нечетных местах равна ', s) end. тестовое решение: элементы массива   -3  0 -5  1  5  1 -3 -4  5 -3 -2 результирующий массив   9  0 25  1 25  1  9 -4 25 -3  4 количество единиц на четных местах равно 2 сумма отрицательных элементов на нечетных местах равна -13

#код на ruby 2.2.3p173 def zadanie(money)       count = 0       for alice in 1..money - 1             for basil in 1..money - alice - 1                   duremar = money - alice - basil                   if alice - basil > = 1 and alice - duremar > = 1                         p [alice, basil, duremar]                         count += 1                   end             end       end       return count end # # примеры применения p zadanie(17) ответ 37