Дана вещественная матрица размером nxm. Определить сумму отрицательных элементов каждой строки

@alisher_dnv · Регистрация: 19.05.2015

@Кривокодер · 19.05.2015, 19:41

Delphi

var matrix:array [1..n] of array [1..m] of real;
var i,j,sum:integer;
...
for i:=1 to n do
begin
sum:=0;
for j:=1 to m do
if matrix[i,j]<0
then sum:=sum+matrix[i,j]
ShowMessage('Summa stroki '+IntTOStr(i)+': '+FloatToStr(sum));//Вывод суммы отрицательных чисел из очередной строки
end;

@alisher_dnv · 20.05.2015, 17:45 **[ТС]**

Кривокодер, этот код неправильный! результата нету(точнее не выдает), можете пересмотреть пожалуйста

@alisher_dnv · 20.05.2015, 17:47 **[ТС]**

Кривокодер,26.rar

@Кривокодер · 20.05.2015, 17:54

В массив надо заносить значения перед запуском этого кода, сам по себе массив не заполнится
Как-то так:

Delphi

1
2
3

for i:=1 to n  do
for j:=1 to m do
matrix[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);

@alisher_dnv · 20.05.2015, 18:46 **[ТС]**

Кривокодер, спасибо

@alisher_dnv 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 5
		1
	Дана вещественная матрица размером nxm. Определить сумму отрицательных элементов каждой строки 19.05.2015, 18:56. Показов 2485. Ответов 5 Метки нет (Все метки) Дана вещественная матрица размером nxm. Определить сумму отрицательных элементов каждой строки __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@alisher_dnv 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 5
	20.05.2015, 17:45 [ТС]	3
	Кривокодер, этот код неправильный! результата нету(точнее не выдает), можете пересмотреть пожалуйста 0

@alisher_dnv 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 5
	20.05.2015, 17:47 [ТС]	4
	Кривокодер,26.rar 0

@alisher_dnv 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 5
	20.05.2015, 18:46 [ТС]	6
	Кривокодер, спасибо 0

Опции темы