Составить программку вычисления в массиве a, содержащего n частей, произведения

Составить программку вычисления в массиве a, содержащего n элементов, творения отрицательных чисел, кратных трем.

Задать свой вопрос
1 ответ
Var n,i,p:longint;a:array[1..1000000] of longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
p:=1;
for i:=1 to n do
    if (a[i]lt;0) and(a[i] mod 3 =0) then p:=p*a[i];
writeln(p);
End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт