Задание 7 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

7. Напишите программу, сравнивающую сумму чётных и сумму нечётных элементов массива. Проверьте работу программы на заданном массиве А = {7, 25, 45, 10, 17, -61, 10, 5, 1, -40, 22}.

Сумма каких элементов больше?

program s4_v1_7;

var

a: array[0..10] of integer;

i, sc, sn: integer;

begin

sc := 0; sn := 0;

writeln(taskввод массиваtask);

for i := 0 to 10 do

begin

read(a[i]);

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

else sn := sn + a[i]

end;

if sc = sn then writeln(taskсуммы равны task)

else

if sc > sn then writeln(taskсумма четных большеtask)

else writeln(taskсумма нечетных большеtask)

end.

Сумма каких элементов больше? нечетных