Question

Задай одномерный массив Х [1..15]. Определить сумму четных положительных элементов массива, заполненного случайными числами из интервала от (-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.

Answer 2

Определение суммы четных положительных элементов в массиве Pascal

Для начала, нам нужно заполнить одномерный массив Х случайными числами из интервала от -10 до 5. Затем мы сможем определить сумму четных положительных элементов этого массива. В языке Pascal это можно сделать с помощью цикла и условных операторов.

Вот как это можно сделать:

program SumOfEvenPositiveElements;

var
  X: array[1..15] of integer;
  i, sum: integer;

begin
  sum := 0;
  
  { Заполнение массива случайными числами }
  Randomize;
  for i := 1 to 15 do
  begin
    X[i] := Random(16) - 10;  { Генерация случайного числа от -10 до 5 }
  end;
  
  { Определение суммы четных положительных элементов }
  for i := 1 to 15 do
  begin
    if (X[i] > 0) and (X[i] mod 2 = 0) then  { Проверка на положительность и четность }
    begin
      sum := sum + X[i];  { Добавление элемента к сумме }
    end;
  end;
  
  { Вывод суммы четных положительных элементов }
  writeln('Сумма четных положительных элементов массива: ', sum);
  
end.

Этот код создает массив X, заполняет его случайными числами от -10 до 5, а затем определяет сумму четных положительных элементов этого массива.