Найти количество и сумму отрицательным элементов матрицы. Turbo Basic выручайте... - Помощь студентам

Владислав007 · 27.11.2017, 20:19

нз8

СтудПом · 28.11.2017, 00:42

Ну вот вам сумма и количество

Код:

FOR i = 1 TO 5
  FOR j = 1 TO 5
    IF A(i,j) < 0 THEN
      Sum=Sum+A(i,j)
      Num=Num+1
    END IF
  NEXT j
NEXT i

Формирование матрицы из этих элементов - какая-то чушь, их же не регулярное количество.
Пример работы с матрицами на Turbo BASIC - можете использовать как шаблон.

Владислав007 · 28.11.2017, 01:26

97з

Владислав007 · 28.11.2017, 01:27

Снимок.JPG

28.11.2017, 00:42	#2
СтудПом Форумчанин Регистрация: 08.11.2017 Сообщений: 347	Ну вот вам сумма и количество Код: `FOR i = 1 TO 5 FOR j = 1 TO 5 IF A(i,j) < 0 THEN Sum=Sum+A(i,j) Num=Num+1 END IF NEXT j NEXT i` Формирование матрицы из этих элементов - какая-то чушь, их же не регулярное количество. Пример работы с матрицами на Turbo BASIC - можете использовать как шаблон. Тестирование сайта, 100 руб. за ошибку

28.11.2017, 01:26	#3
Владислав007 Новичок Джуниор Регистрация: 27.11.2017 Сообщений: 3	97з Последний раз редактировалось Владислав007; 28.11.2017 в 05:04.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Turbo Pascal]: в сформированной случайным образом матрице 4x4 найти сумму элементов главной диагонали, а также произведение элементов побочной	temar	Помощь студентам	2	18.12.2016 15:16
Матрица а(4,4) В строке с отрицательным элементом на главной диагонали найти сумму всех элементов	Андрей23	Помощь студентам	7	20.11.2013 11:32
Найти сумму элементов между первым и вторым отрицательным элементами. Что у меня неправильно?	GreenMan	Паскаль, Turbo Pascal, PascalABC.NET	2	26.02.2012 13:59
найти сумму элементов обратной диагонали матрицы. Visual Basic.	Юрий18	Помощь студентам	1	23.05.2010 21:11
Найти максимальный из положительных элементов матрицы и сумму отрицательных элементов.	bessonov12	Microsoft Office Excel	7	04.05.2009 05:44

28.11.2017, 01:27	#4
Владислав007 Новичок Джуниор Регистрация: 27.11.2017 Сообщений: 3	Снимок.JPG