Pascal: Сумма некоторых элементов массива

Задача: Дан одномерный массив А(n). Получить сумму тех элементов массива, которые не четны и отрицательны.

Идея в том, чтобы заполнить массив, вывести его, а потом в том же цикле проверять, являются ли элементы подходящими. Условие первое — нечетность. Остаток от деления на 2 должен быть не равен нулю. Второе условие — элемент массива меньше нуля. Таким образом выбираются необходимые нам элементы.

Остается лишь сложить эти элементы между собой.

Вот исходный код:

program z1;
const n = 10;
var
  a : array [1..n] of integer;
  sum, i : integer;
begin
  sum := 0;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(99)-88;
    write(a[i], ' ');
    if (a[i] mod 2 <> 0) and (a[i]  < 0) then
      sum := sum + a[i];
  end;
  writeln;
  writeln(sum);
  readln;
end.

Добавить комментарий