Question

Составьте пожалуйста массивы, хотя бы один

1.В массиве d1, d2, …, d30 найти произведение чисел, исключая
первый и последний элемент.




2.Даны три последовательности чисел: а1, а2, ..., а8;
b1, b2, ..., b8; с1, с2 , ..., с8. Составить новую последовательность, в
которой чередовались бы числа всех трех последовательностей, т.е. d1 = a1;
d2=b1; d3 = c1; d4 = a2; d5 = b2; d6 = c2.

Answer 1

первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do 
s:=s*d[i];
writeln(s)
end.