Суммы положительных элементов каждого ряда двумерного массива

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

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

QBasic/QuickBASIC

CLS
DIM X(4, 3)
   FOR I = 1 TO 4
   FOR j = 1 TO 3
 X(I, j) = 40 * RND – 5
PRINT USING “####”; X(I, j);
   NEXT: PRINT: NEXT
PRINT “ Суммы рядов:”
   FOR I = 1 TO 4
       S = 0
   FOR j = 1 TO 3
     S = S + X(I, j)
    NEXT j
PRINT USING “####”; S;
   IF SMax < S THEN
       SMax = S:  imax = i
    END IF
   NEXT i: PRINT
PRINT “ Ряд с max суммой: “; imax

На выходе имеем:

QBasic/QuickBASIC

23   16   18
  7     7   26
 -4   25   28
23    -3   12
Суммы рядов:
58   40   49   32
Ряд с max суммой:  1

Почему здесь сумма 1-го ряда 58 а не 57?

@кот Бегемот · 22.12.2019, 19:56

Я уже Вам говорил, что такое RND, но вы не слушаете.
Это дробное число. Чтобы сделать его целым, надо брать от него целую часть, добавляя INT, а так у вас остаётся дробный хвост, который может увеличить сумму

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	22.12.2019, 19:56	2
	Я уже Вам говорил, что такое RND, но вы не слушаете. Это дробное число. Чтобы сделать его целым, надо брать от него целую часть, добавляя INT, а так у вас остаётся дробный хвост, который может увеличить сумму 0