Найти сумму положительных элементов массива, стоящих на чётных местах

Program n1; const n=15; var sum,i: integer; a: array[1..n] of integer; begin randomize; sum: =0; writeln('массив: '); for i: =1 to n do begin a[i]: =random(10)-3; write(a[i],' '); if (i mod 2=0) and (a[i]> 0) then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end.

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

а)сумм(a5: b7)

б)срзнач(c4: c7)