2. Имеется целочисленный массив, состоящий из N элементов (N - чётное): a) Найти сумму первых N/2 элементов; b) Найти сумму элементов стоящих на чётных позициях; c) Найти произведение элементов стоящих на нечётных позициях; d) Найти сумму чётных элементов стоящих на чётных позициях. Помогите плиз

1

Ответы и объяснения

2013-04-04T15:48:06+04:00

Код Pascal

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 var a:array[1..10] of byte;     s,i:byte; begin s:=0; for i:=1 to 10 do begin a[i]:=random(10); write(a[i],' '); read; end; writeln; for i:=1 to 10 do begin if i mod 2=0 then begin s:=s+a[i]; end; end; writeln('summa = ',s); readln; end.