1. В массиве d1, d2, …, d30 найти произведение чисел, исключая первый и последний элемент.
1.
В массиве d1, d2, …, d30 найти
произведение чисел, исключая первый и последний элемент.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a:array[1..30] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(10)+1;
write(a[i]:3);
end;
k:=1;
for i:=2 to 29 do
k:=k*a[i];
writeln;
write(k);
end.
Не нашли ответ?
Похожие вопросы