Дан массив A(n,m) найти мах сумму элементов в строках. Проверить правильность

16.01.2014, 18:28. **Показов** 1049. **Ответов** 2

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

PureBasic

cls
input n,m
dim a(n,m)
for i=1 to n 
for j=1 to m 
input a(i,j)
next j
next i
max1=0 , max1=max1+A(i,j)
for i=1
for j=1 to n
next j
next i 
max2=0 , max2=max2+A(i,j)
for i=2 to n 
for j=1 to m
if max1>max2 then max=max1 else max=max2
print 'max'

@L_e_g_i_o_n · 16.01.2014, 19:13

QBasic/QuickBASIC

DEFINT A-S
INPUT n,m
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n 
 FOR j=1 TO m 
  a(i,j)=INT(RND(1)*10)
  ? a(i, j);
 NEXT j
 ?
NEXT i
'**********************
max2=0
FOR i=1 TO n
 max1=0   
 FOR j=1 TO m
    max1=max1+a(i,j)
 NEXT j
IF max1>max2 THEN max2=max1 END IF
max2=max1
NEXT i
PRINT "max= "&max2
SLEEP

@urbic · 18.01.2014, 19:37

19 IF max1>max2 THEN max2=max1 END IF

В этой строке end if лишний

@urbic 140 / 130 / 127 Регистрация: 27.09.2012 Сообщений: 630
	18.01.2014, 19:37	3
	19 IF max1>max2 THEN max2=max1 END IF В этой строке end if лишний 0

Опции темы