почему здесь (201)-100?
const n=10;
var a: array[1..n] of integer;
c,d,i: integer;
begin
randomize;
for i: =1 to n do
a[i]: =random(201)-100;
writeln('заданные числа, с рандома: ');
for i: =1 to n do
writeln(a[i],' ');
for i: =1 to n do
if a[i] mod 2=0 then c: =c+a[i] else d: =d+a[i];
writeln('сумма четных элементов: ',c);
writeln('сумма нечетных элементов: ',d);
end.
Не зная языка, могу сказать что в массив "а" в i-тый элемент записывается псевдослучайное число из диапазона. Все предельно просто. Да и загуглив, с первых ссылок можно все подробно узнать