Имеется целочисленный массив состоящий из N элементов (N — четное) а) Найти сумму…

А) uses crt; var n,i,sum: integer; a: array[1… 100] of integer; beginwriteln ('N? '); read (n); writeln ('Элементы? '); for i: =1 to n doread (a[i]); for i: =1 to n div 2 dosum: =sum+a[i]; writeln (sum); end. Б) uses crt; var n,i,sum: integer; a: array[1… 100] of integer; beginwriteln ('N? '); read (n); writeln ('Элементы? '); for i: =1 to n dobeginread (a[i]); if i mod 2=0 then sum: =sum+a[i]; end; writeln (sum); end. В) uses crt; var n,i,mult: integer; a: array[1… 100] of integer; beginmult: =1; writeln ('N? '); read (n); writeln ('Элементы? '); for i: =1 to n dobeginread (a[i]); if i mod 2<>0 thenmult: =mult*a[i]; end; writeln (mult); end. Г) uses crt; var n,i,sum: integer; a: array[1… 100] of integer; beginwriteln ('N? '); read (n); writeln ('Элементы? '); for i: =1 to n dobeginread (a[i]); if (i mod 2=0) and (a[i] mod 2=0) then sum: =sum+a[i]; end; writeln (sum); end.