Дан массив К(N) , N= 12 . Вычислить произведение значений элементов массива. Помогите!
Дан массив К(N) , N= 12 . Вычислить произведение значений элементов массива. Помогите!
Гость
Ответ(ы) на вопрос:
Гость//Для 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.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?
Не нашли ответ?
Похожие вопросы