Const n=20; var a: array [1..n] of integer; i,s,k: integer; begin s: =0; k: =0; randomize; for i: =1 to n do begin a[i]: =random(50); write(a[i],' '); end; for i: =1 to n do if (a[i] mod 2 =0) then s: =s+a[i] else k: =k+a[i]; writeln; writeln('сумма четных элементов: ',s); writeln('сумма нечетных элементов: ',k); end. не могу найти ошибку !

maga20082    3   22.06.2019 22:20    0