Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел. Программа получает на вход количество чисел в последовательности, а сами числа задаются случайным образом. Количество чисел не превышает 100. Введённые числа не превышают 50. Программа должна вывести исходные числа и число- сумму четных чисел. С ОБЪЯСНЕНИЕМ ОТВЕТА, спасибо.

комментарии удалишь, попросил же с объяснением.var mass:array[1..100] of integer;        g,s,i,sum:integer;beginsum:=0;i:=0; // задаем начальное значение счетчикуrandomize; //рандомизацияwriteln('введите количество чисел в массиве (до 100)');readln(g); // водим количество чиселfor s:=1 to g do // от нуля, до кол-ва чисел в массивеbegini:=i+1;mass[i]:=random(51); //51 потому что всегда -1 еще идет...if (mass[i] mod 2) = 0 then sum:=sum+mass[i]; //проверяем на четность и плюсуем, если четное.writeln(mass[i]);end;writeln('чисел в массививе - '+g);                         //выводим значенияwriteln('сумма четных элементов = '+sum);end.