Задача: Дан одномерный массив А(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.