Составьте пожалуйста массивы, хотя бы один 1.В массиве d1, d2, …, d30 найти произведение чисел, исключая первый и последний элемент.2.Даны три последовательности чисел: а1, а2, ..., а8; b1, b2, ..., b8; с1, с2 , ..., с8. Состав...
Составьте пожалуйста массивы, хотя бы один
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.
Гость
Ответ(ы) на вопрос:
Гостьпервое задание:
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.
Не нашли ответ?
Похожие вопросы