Question

Дан массив К(N) , N= 12 . Вычислить произведение значений элементов массива. Помогите!

Answer 1

//Для 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.
//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.
//А вообще, там были указаны ограничения?

Answer 2

спасибо

Answer 3

В простом Pascal ABC надо будет заменить longint на integer и поменять pr*=a[i]; на pr:=pr*a[i];, затем pr1*=a[i]; на pr1:=pr1*a[i];

Answer 4

ок

Answer 5

не работает((

Answer 6

Что отвечает?