Question

Написать программу в Паскале которая сначала должна обеспечить ввод 5 чисел в одномерный массив затем вычислить количество четных и вывести сумму четных на экран a[1]=6 a[2]=5 a[3] a[4]=3 a[5]=2 количество четных чисел =3 cумма четных чисел=12.

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..5] of integer;

begin

 for var i:=1 to 5 do

   arr[i]:=readinteger('Введите '+i+' элемент массива: ');

 

 var sum:=0;

 var number:=0;

 for var i:=1 to 5 do

   if arr[i] mod 2 = 0 then

   begin

     sum += arr[i];

     number += 1;

   end;

 

 writeln('Количество четных чисел = '+number);

 writeln('Сумма четных чисел = '+sum);

end.

Answer 2

Конечно, вот готовый код на Паскале, который выполняет необходимые действия:

arduinoCopy code
program CountEvenNumbers;

var
  a: array[1..5] of integer;
  i, count, sum: integer;

begin
  // Ввод 5 чисел в массив
  for i := 1 to 5 do
  begin
    write('Введите число a[', i, ']: ');
    readln(a[i]);
  end;

  // Подсчет количества четных чисел и их суммы
  count := 0;
  sum := 0;
  for i := 1 to 5 do
  begin
    if a[i] mod 2 = 0 then
    begin
      count := count + 1;
      sum := sum + a[i];
    end;
  end;

  // Вывод результатов на экран
  writeln('Количество четных чисел = ', count);
  writeln('Сумма четных чисел = ', sum);

  readln; // Для того, чтобы программа не закрывалась сразу после вывода результатов
end.

При запуске программы пользователь будет приглашен ввести 5 чисел. Затем программа подсчитает количество четных чисел и их сумму, и выведет результаты на экран.