Дан массив К(N) , N= 12 . Вычислить произведение значений элементов массива. Помогите!
Answers & Comments
Wani4kaa
//Для Pascal ABC.Net Var k:array[1..12] of longint;i:byte;pr,pr1:int64; Begin for i:=1 to 12 do read(a[i]); //Читаем каждый из элементов массива pr:=1; pr1:=1; for i:=1 to 6 do pr*=a[i]; //Перемножаем каждый из 6 элементов массива for i:=7 to 12 do pr1*=a[i]; //Перемножаем каждый из 6 последних элементов массива writeln(pr*pr1); End. //Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся. //А вообще, там были указаны ограничения?
Answers & Comments
Var k:array[1..12] of longint;i:byte;pr,pr1:int64;
Begin
for i:=1 to 12 do
read(a[i]); //Читаем каждый из элементов массива
pr:=1;
pr1:=1;
for i:=1 to 6 do
pr*=a[i]; //Перемножаем каждый из 6 элементов массива
for i:=7 to 12 do
pr1*=a[i]; //Перемножаем каждый из 6 последних элементов массива
writeln(pr*pr1);
End.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?