Дан массив 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

var

  n: 2..100;

  a: array [1..100] of -1000..1000;

  max1, max2, maxpr, i, j: integer;   {maxpr - максимальное произведение, max1 и max2 - искомые числа}

function rangeoverfilling(number: integer; index: integer): integer; {функция, возвращающая число в диапазон} begin  if number in [1..index] then result : = number;   if number > index then result : = number mod index;   if number < 1 then result : = index + number mod index; end;

 

begin

  maxpr: = -maxint; {присваиваем максимальному проиведению начальное значение, равное максимальному числу типа integer, взятому со знаком -}

  writeln('введите n');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите целое число, по модулю не превышающее 1000');

    readln(a[i]);

  end;

  for i: = 1 to n - 1 do

  for j: = 1 to rangeoverfilling(n - i, n) do

    if a[i] * a[i + j] > maxpr then

    begin

      maxpr: = a[i] * a[i + j];

      max1: = a[i];

      max2: = a[i + j];

    end;

  writeln('пара чисел, максимальное произведение: ', max1,' и ', max2);

end.

   

   

Можно записать две похожих формулировки правила перевода из десятичной системы в двоичную: формулировка 1. для перевода чисел из десятичной системы в двоичную нужно разделить число на 2, где 2 — основание двоичной системы, и записать остаток от деления. полученное частное снова разделить на 2 и также записать остаток. повторять действия, пока частное не станет равным 0. записать все остатки в обратном порядке. пример 1: переведем число 36 в двоичную систему счисления: 36 / 2 = 18в остатке 0 18 / 2 = 9в остатке 0 9 / 2 = 4в остатке 1 4 / 2 = 2в остатке 0 2 / 2 = 1в остатке 0 1 / 2 = 0в остатке 1 и запишем полученные остатки снизу вверх ↑ 3610 = 1001002 формулировка 2. для перевода чисел из десятичной системы в двоичную нужно разделить число на 2, где 2 — основание двоичной системы, и записать остаток от деления. полученное частное снова разделить на 2 и также записать остаток. повторять действия, пока частное не станет равным 1. записать последнее частное (1) и все остатки в обратном порядке. пример 2: переведем число 123 в двоичную систему счисления: 123 / 2 = 61в остатке 1 61 / 2 = 30в остатке 1 30 / 2 = 15в остатке 0 15 / 2 = 7в остатке 1 7 / 2 = 3в остатке 1 3 / 2 = 1в остатке 1 последняя цифра — 1 и запишем эту последнюю 1 и остатки снизу вверх ↑ 12310 = 11110112 | вторая формулировка напоминает нам, что первая цифра двоичного числа (кроме нуля, конечно) всегда равна единице и последнее действие можно не записывать, так как оно всегда одинаковое, в остальном она аналогична первой. именно это правило используется в школе, только применяется запись в столбик, однако разделить число на 2 можно и без столбика : ), а запись получается более аккуратной, чем письмена наискось через всю страницу (к тому же её не сложно представить в электронном виде иначе как графикой) . и в целом, первое правило более универсальное, оно подходит ко всем системам, выучите его и забудьте все прочие, чему бы там не учили в школе. последняя цифра двоичного числа будет нулем, если число четное и единицей, если число нечетное. при делении целого числа нацело на 2 в остатке может быть либо 0 (если делимое четно) либо 1 (если делимое нечетно) . при целочисленном делении меньшего числа на большее результатом будет всегда 0, а в остатке — делимое, т. е. исходное число, например: 1/2 = 0 а в остатке получим 1. проверим 0*2+1=1 (получили 1, т. е. делимое) . проверить полученные значения можно с стандартного калькулятора в любой операционной системе. системы счисления в калькуляторе обозначаются сокращенно: дес — десятичная, бин — двоичная, ост — восьмеричная, хекс — шестнадцатеричная. электронное устройство, осуществляющее подобный перевод, называется шифратором.