Question

Напишите программу, которая в последовательности целых чисел определяет их сумму и количество чётных чисел. Программа получает на вход целые числа и количество введённых чисел. Программа должна вывести два числа: сумму последовательности и количество чётных чисел. Написать в ПАСКАЛЕ!

Answer 1

Program prog;

var n, i, s, c, t: integer;

begin

   s:=0;

   c:=0;

   read(n);

   for i:=1 to n do begin

       read(t);

       s:=s+t;

       if t mod 2 = 0 then c:=c+1;

   end;

   writeln(s,' ', c);

end.

Answer 2

Вот пример программы на Pascal, которая выполняет указанные задачи:

pascalCopy code
program SumAndCountEvens;
var
  n, num, sum, countEvens: integer;
  i: integer;
begin
  sum := 0;
  countEvens := 0;

  write('Введите количество чисел: ');
  readln(n);

  for i := 1 to n do
  begin
    write('Введите целое число: ');
    readln(num);
    sum := sum + num;
    if (num mod 2 = 0) then
      countEvens := countEvens + 1;
  end;

  writeln('Сумма последовательности: ', sum);
  writeln('Количество четных чисел: ', countEvens);
end.

Программа начинает с запроса количества чисел, которые вы хотите ввести. Затем она использует цикл for для ввода каждого числа, добавляет его к общей сумме и проверяет, является ли оно четным. Если число четное, увеличивается счетчик четных чисел. По завершении цикла программа выводит сумму последовательности и количество четных чисел.