Question

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. НЕ МОГУ НАЙТИ ОШИБКУ ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Можно попробовать сделать так:

Добавь новую строку, она будет первой: const n=10;

И точку в конце.