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

Сумма каких элементов больше?
program s4_v1_7;
var
a: array[0..10] of integer;
i, sc, sn: integer;
begin
sc := 0; sn := 0;
writeln(‘ввод массива’);
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(‘суммы равны ‘)
else
if sc > sn then writeln(‘сумма четных больше’)
else writeln(‘сумма нечетных больше’)
end.
Сумма каких элементов больше? нечетных

Составим программу, которая при просмотре каждого элемента массива будет проверять его чётность. Если число чётное, прибавим его к сумме чётных элементов $$sc$$, иначе — к сумме нечётных $$sn$$.

Для массива $$A = \{7, 25, 45, 10, 17, -61, 10, 5, 1, -40, 22\}$$ найдём суммы:

чётные элементы: $$10, 10, -40, 22$$
$$sc = 10 + 10 — 40 + 22 = 2$$

нечётные элементы: $$7, 25, 45, 17, -61, 5, 1$$
$$sn = 7 + 25 + 45 + 17 — 61 + 5 + 1 = 39$$

Так как $$39 > 2$$, больше сумма нечётных элементов.

program s4_v1_7;
var
  a: array[0..10] of integer;
  i, sc, sn: integer;
begin
  sc := 0;
  sn := 0;
  writeln(‘ввод массива’);
  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(‘суммы равны’)
  else if sc > sn then writeln(‘сумма четных больше’)
  else writeln(‘сумма нечетных больше’);
end.

Ответ

Больше сумма нечётных элементов.