Дан массив целых чисел. Сравнить по модулю сумму элементов, стоящих на четных местах массива, с суммой элементов, стоящих на нечетных местах.
const N = 15; var arr: array[1..N] of integer; i: byte; s_even, s_odd: integer; begin randomize; s_even := 0; s_odd := 0; for i:=1 to N do begin arr[i] := random(100) - 50; write(arr[i]:5); if i mod 2 = 0 then s_even := s_even + arr[i] else s_odd := s_odd + arr[i]; end; writeln; writeln('Сумма элементов массива, стоящих на четных местах: ', s_even); writeln('Сумма элементов массива, стоящих на нечетных местах: ', s_odd); if abs(s_even) > abs(s_odd) then writeln('По модулю первая сумма больше второй.') else writeln('По модулю первая сумма меньше либо равна второй.'); end.
Примеры выполнения программы:
-45 38 -35 -50 1 2 21 -25 -39 -27 18 -24 14 19 16 Сумма элементов массива, стоящих на четных местах: -67 Сумма элементов массива, стоящих на нечетных местах: -49 По модулю первая сумма больше второй.
24 -6 15 -6 -15 36 -33 37 -19 -37 -40 8 33 -19 -25 Сумма элементов массива, стоящих на четных местах: 13 Сумма элементов массива, стоящих на нечетных местах: -60 По модулю первая сумма меньше либо равна второй.
Последние комментарии
17 часов 49 мин. назад
18 часов 55 мин. назад
1 день 5 часов назад
3 дня 11 часов назад
5 дней 5 часов назад
5 дней 22 часа назад
6 дней 7 часов назад
6 дней 8 часов назад
6 дней 20 часов назад
1 неделя 10 часов назад