Question

Сумма нечетных отрицательных чисел через массив в паскале

Answer 1

program Otric;

var
  mas: array [1..3] of integer;
  i, k: integer;

begin
  k := 0;
  write('Введите числа: ');
  for i := 1 to 3 do
  begin
    readln(mas[i]);
    if (mas[i] < 0) and (mas[i] mod 2 <> 0)
      then k := k + mas[i];
  end;
  writeln('Сумма нечетных отрицательных чисел = ', k);
end.