Как определить, что больше: сумма четных чисел или нечетных в одномерном массиве из n натуральных чисел, используя язык программирования Паскаль с командой var a: array[1..111] of integer? Пример ввода: 5, 2, 19, 2, 8, 4. Какой будет вывод?
Информатика 10 класс Массивы и работа с ними в языке программирования Паскаль сумма четных чисел сумма нечётных чисел массив из n чисел язык программирования Паскаль команда var a вывод программы Паскаля алгоритм суммы чисел определение больше суммы четные и нечетные числа работа с массивами в Паскале
Чтобы определить, какая сумма чисел больше - четных или нечетных - в одномерном массиве из n натуральных чисел на языке программирования Паскаль, необходимо выполнить несколько шагов. Давайте рассмотрим, как это сделать.
Теперь давайте посмотрим на пример кода на Паскале:
var
a: array[1..111] of integer;
n, i: integer;
sumEven, sumOdd: integer;
begin
sumEven := 0; // Инициализация суммы четных чисел
sumOdd := 0; // Инициализация суммы нечетных чисел
// Ввод количества элементов
readln(n);
// Ввод элементов массива
for i := 1 to n do
begin
read(a[i]);
end;
// Вычисление сумм четных и нечетных чисел
for i := 1 to n do
begin
if a[i] mod 2 = 0 then
sumEven := sumEven + a[i] // Если четное, добавляем к sumEven
else
sumOdd := sumOdd + a[i]; // Если нечетное, добавляем к sumOdd
end;
// Сравнение и вывод результата
if sumEven > sumOdd then
writeln('Сумма четных чисел больше')
else if sumOdd > sumEven then
writeln('Сумма нечетных чисел больше')
else
writeln('Суммы четных и нечетных чисел равны');
end.
Теперь давайте рассмотрим пример ввода: 5, 2, 19, 2, 8, 4.
Считаем суммы:
Теперь сравниваем:
Таким образом, вывод будет: Сумма нечетных чисел больше.