adelina1112

22.05.2020 23:15 •  Информатика

почему здесь (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.