задача (одномерный массив)

[pygowka]

Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиа-туры. Найти:сумму отрицательных элементов; число тех элементов массива, значения которых положительны и не превосходят заданного числа А.;найти номер последней пары соседних элементов с разными знаками.;заменить максимальный по модулю отрицательный элемент нулем.;заменить первые k элементов на противоположные по знаку(Turbo Pascal)

[Hacker19_90]

Показывайте что есть!

[pygowka]

не могу т.к. то что есть все на компе у преподавателя а я в данный момен не там(

[Mad_Cat]

{ Дан массив целых чисел, состоящий из 10 элементов.
  Заполнить его с клавиатуры.
  Найти:
  сумму отрицательных элементов;
  число тех элементов массива, значения которых положительны и не превосходят заданного числа А.;
  найти номер последней пары соседних элементов с разными знаками.;
  заменить максимальный по модулю отрицательный элемент нулем.;
  заменить первые k элементов на противоположные по знаку }
const
  n = 10;

var
  m: array [1 .. n] of integer;
  s_otr: integer;
  c_pol: integer;
  a, i: integer;
  n_p: integer;

begin
  s_otr := 0;
  for i := 1 to n do
  begin
    write('[', i, ']=');
    readln(m[i]);
    if m[i] < 0 then
      s_otr := s_otr + m[i];
  end;
  Writeln('Исходный Массив:');
  for i := 1 to n do
    write(m[i]:6);
  Writeln;
  Writeln('Сумма отрицательных:', s_otr);
  repeat
    Write('a=');
    readln(a);
  until (a > 0);
  c_pol := 0;
  for i := 1 to 10 do
    if (m[i] > 0) and (m[i] <= a) then
      inc(c_pol);
  Writeln('Число тех элементов массива, значения которых положительны и не превосходят числа ',
    a, ' :', c_pol);
  for i := n downto 2 do
    if m[i] * m[i - 1] < 0 then
    begin
      c_pol := i - 1;
      break;
    end;
  Writeln('номер последней пары соседних элементов с разными знаками: ', c_pol,
    ' и ', c_pol + 1);
  i := 1;
  while (m[i] >= 0) and (i <= n) do
    inc(i);
  c_pol := i;
  a := i + 1;
  for i := a to n do
    if (m[i] < 0) and (abs(m[i]) > abs(m[c_pol])) then
      c_pol := i;
  m[c_pol] := 0;
  Writeln('Замена максимального по модулю отрицательного элемента нулем:');
  for i := 1 to n do
    write(m[i]:6);
  Writeln;
  repeat
    write('k=');
    readln(a);
  until (a > 0) and (a < n);
  Writeln('Замена  первых ', a, ' элементов на противоположные по знаку');
  for i := 1 to n do
  begin
    if i <= a then
      m[i] := -m[i];
    write(m[i]:6);
  end;
  readln;
end.

[pygowka]

огромнейшее спасибо !!!!!