Числовой ряд из 10 чисел задается генератором случайных чисел в диапазоне от 1 до 20. Найти насколько сумма четных отличается от суммы нечетных.

Задание выполнено на ЯПВУ Паскаль. Ключевый действия описаны в коде в виде комментариев (т. е. отделены от основного кода символами "//"). При подсчете сумм используется функция "остаток целочисленного деления" - mod. Если остаток деления на 2 равно 1, то число нечетное, если 0 - то четное.

var

m:array[1 ... 10] of integer; //объявление массива

i, s1, s2, s:integer; //объявление необходимых переменных

begin

randomize; //запус генератора случайных чисел

for i:=1 to 10 do / /цикл-счетчик для заполнения массива

begin

m[i]:=random (20); //элементу массива задается случайное значение

write (m[i],' ');

end;

for i:=1 to 10 do//цикл-счетчик подсчета сумм

begin

if m[i] mod 2 = 1 then s1:=s1+m[i]; //проверка на четность, вычисление суммы нечетных

if m[i] mod 2 = 0 then s2:=s2+m[i]; //проверка на четность, вычисление суммы четных

end;

s:=abs (s1-s2);

write ('Суммы четных и нечетных отличаются на ', s); //вывод результата на экран

end.