Найти произведение отрицательных элементов, расположенных на главной диагонали матрицы - Turbo Pascal

  1. найти произведение отрицательных элементов, расположенных на главной диагонали матрицы


textual

Код к задаче: «Найти произведение отрицательных элементов, расположенных на главной диагонали матрицы - Turbo Pascal»

Mulex:=1;
For i:=1 to Max do 
  If m[i,i]<0 then Mulex:=Mulex*m[i,i];

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.800 из 5



Похожие ответы
  1. 2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

  1. Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Никак не могу додуматься как сделать :с

  1. Вычислить произведение С погрешностью e=0,1e-3 , при r=0,12

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Доброе время суток! Хотелось бы получить помощь в следующей задаче: Пользователь вводит размерность и элементы одномерного массива натуральных чисел. Найти произведение элементов, у которых сумма цифр кратна 4 и факториал первого элемента массива. Вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль. А именно с задачей "Найти произведение элементов, у которых сумма цифр кратна 4". Если кто-то поможет, то буду очень благодарен за Вашу помощь.Добавлено через 1 час 8 минут

  1. Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

  1. Найти сумму отрицательных элементов массива. Помогите, пожалуйста !!!

  1. Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.

  1. Задача на списки. Написать с использованием подпрограмм. Пусть с клавиатуры вводится последовательность вещественных чисел, где n - заранее неизвестная величина. Ввод завершается символом перевода строки. Вычислите произведение суммы: