Предмет: Информатика,
автор: nkyu
Составьте пожалуйста массивы, хотя бы один
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.
Ответы
Автор ответа:
0
первое задание:
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.
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.
Интересные вопросы
Предмет: Химия,
автор: sekretgirl0
Предмет: Литература,
автор: vbutenin33
Предмет: География,
автор: kotyara60
Предмет: Химия,
автор: Аноним
Предмет: Математика,
автор: Лизонька123