2. Имеется целочисленный массив, состоящий из N элементов (N - чётное): a) Найти сумму первых N/2 элементов; b) Найти сумму элементов стоящих на чётных позициях; c) Найти произведение элементов стоящих на нечётных позициях; d) Найти сумму чётных элементов стоящих на чётных позициях. Помогите плиз
Код Pascal
123456789101112131415161718var a:array[1..10] of byte; s,i:byte;begins:=0;for i:=1 to 10 dobegina[i]:=random(10);write(a[i], );read;end;writeln;for i:=1 to 10 do beginif i mod 2=0 then begin s:=s+a[i];end;end;writeln(summa = ,s);readln;end.Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
