Задай одномерный массив Х [1..15]. Определить сумму четных положительных элементов...

Question

Задай одномерный массив Х [1..15]. Определить сумму четных положительных элементов массива, заполненного случайными числами из интервала от (-10)5]
Паскаль

Comments

Интервал [-9,,5] ?

---

(-10)5]

---

От -10(не включительно) до 5-ти включительно?

---

да

Answer 1

Var
  X: array [1..15] of integer;
  i, sum: byte;
begin
sum := 0;
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 15 do
begin
  X[i] := random(15)-9;
  if ((X[i] > 0) and (X[i] mod 2 = 0)) then
    sum := sum + X[i];
  write(X[i],' ');
end;
writeln;
writeln('Сумма положительных четных = ', sum);
readln;
end.

---

Comments

Спасибо огромное! Прям выручили.