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

Ответы 6

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

      renato
    • 6 лет назад
    • 0
  • ок
  • не работает((
  • Что отвечает?
    • Автор:

      sassyceme
    • 6 лет назад
    • 0
  • //Для Pascal ABC.NetVar k:array[1..12] of longint;i:byte;pr,pr1:int64;Beginfor i:=1 to 12 doread(a[i]); //Читаем каждый из элементов массиваpr:=1;pr1:=1;for i:=1 to 6 dopr*=a[i]; //Перемножаем каждый из 6 элементов массиваfor i:=7 to 12 dopr1*=a[i]; //Перемножаем каждый из 6 последних элементов массиваwriteln(pr*pr1);End.//Не знаю, к чему я сделал две ячейки произведения. Наверное, перегрузки боялся.//А вообще, там были указаны ограничения?
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years