2. Имеется целочисленный массив, состоящий из N элементов (N - чётное): a) Найти сумму первых N/2 элементов; b) Найти сумму элементов стоящих на чётных позициях; c) Найти произведение элементов стоящих на нечётных позици...
2. Имеется целочисленный массив, состоящий из N элементов (N - чётное): a) Найти сумму первых N/2 элементов; b) Найти сумму элементов стоящих на чётных позициях; c) Найти произведение элементов стоящих на нечётных позициях; d) Найти сумму чётных элементов стоящих на чётных позициях. Помогите плиз
Гость
Ответ(ы) на вопрос:
ГостьКод 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.
Не нашли ответ?
Похожие вопросы