Question

Паскаль АБС. 1)Дано целое число N>0. С клавиатуры вводится N любых чисел , найти сумму только четных из этих чисел.Вывести полученное значение на экран.

Answer 1

var

a : array [1..100] of integer;

i, n, s : integer;

begin

s:=0;

writeln('Введите число n');

read(n);

for i:=1 to n do

 begin

   writeln('Введите число: ');

   read(a[i]);

 end;

writeln;

writeln('Последовательность:');

for i:=1 to n do

 write(a[i],' ');

writeln;  

for i:=1 to n do  

 if (a[i] mod 2 = 0) then

   s:=s+a[i];

writeln('Сумма четных: ',s);

end.    

Answer 2

Для решения данной задачи на языке программирования Паскаль, вы можете использовать следующий код:

pascalCopy code
program SumOfEvenNumbers;

var
  N, i, number, sum: integer;

begin
  // Вводим количество чисел N
  writeln('Введите количество чисел N:');
  readln(N);
  
  // Инициализируем сумму нулевым значением
  sum := 0;
  
  // Вводим числа и считаем сумму четных
  writeln('Введите ', N, ' чисел(а):');
  for i := 1 to N do
  begin
    readln(number);
    if number mod 2 = 0 then // Проверяем, является ли число четным
      sum := sum + number;   // Если число четное, добавляем его к сумме
  end;
  
  // Выводим результат
  writeln('Сумма четных чисел равна: ', sum);
end.

После компиляции и запуска программы, она запросит у вас ввести количество чисел N и затем по очереди N чисел. После ввода всех чисел программа вычислит сумму только четных чисел и выведет полученное значение на экран.