Question

Написать программу на Паскале Дан массив A целых чисел, содержащий 30 элементов. Вычислить и вывести сумму тех элементов, которые нечетны и отрицательны.

Answer 1

const

 n=30;

var

 a:array [1..n] of integer;

 i,sum:integer;

begin

 sum:=0;

 for i:=1 to n do

   begin

     a[i]:=random(101)-50;

     if (abs(a[i] mod 2) = 1) and (a[i]<0) then

       sum:=sum+a[i];

     write(a[i]:4);

   end;

 writeln;

 write('sum: ',sum);

end.

Answer 2

Вот пример программы на языке Pascal, которая вычисляет и выводит сумму элементов массива A, которые являются отрицательными и нечетными:

pascalCopy code
program SumNegativeOddElements;
var
  A: array[1..30] of integer; // Объявляем массив A из 30 элементов
  i, sum: integer; // Переменные для цикла и суммы

begin
  sum := 0; // Инициализируем сумму нулем

  // Заполняем массив A случайными значениями (замените этот блок на заполнение вашими данными)
  for i := 1 to 30 do
  begin
    A[i] := Random(201) - 100; // Генерируем случайные значения от -100 до 100
  end;

  // Вычисляем сумму отрицательных и нечетных элементов
  for i := 1 to 30 do
  begin
    if (A[i] < 0) and (A[i] mod 2 <> 0) then
    begin
      sum := sum + A[i];
    end;
  end;

  // Выводим результат
  writeln('Сумма отрицательных и нечетных элементов массива A: ', sum);

  // Ожидаем нажатия клавиши перед закрытием окна
  readln;
end.

Эта программа сначала заполняет массив A случайными отрицательными и положительными значениями, а затем считает и выводит сумму отрицательных и нечетных элементов этого массива. Вы можете заменить генерацию случайных значений на ввод данных с клавиатуры или другой способ инициализации массива A.