Найти выручку за каждый день и в какой день она максимальна

SID61

представлена выручка магазина за неделю по 5 товарам. 1 найти выручку за каждый день и в какой день она максимальна 2 какой из товаров продается лучше всего 3 общая выручка за неделю
1 ответ

SID61

'Задаем массив
CLS
DIM a(5, 7)
FOR i = 1 TO 5
FOR j = 1 TO 7
PRINT i; "товар"; j; "день"
INPUT a(i, j)
CLS
NEXT j
NEXT i
 
 
'Находим выручки для каждого дня
DIM vir(7)
FOR j = 1 TO 7
vir(j) = 0
FOR i = 1 TO 5
vir(j) = vir(j) + a(i, j)
NEXT i
NEXT j
 
'печатаем выручки, находим и печатаем максимальную
max = vir(1)
nmax = 1
FOR j = 1 TO 7
PRINT "выручка"; j; "дня = "; vir(j)
IF vir(j) > max THEN
max = vir(j)
nmax = j
END IF
NEXT j
PRINT "максимальная выручка ="; max; "была"; nmax; "дня"
PRINT
 
 
'находим товар с самой большой выручкой за все дни (я понимаю такой товар продается лучше всего или я не прав?), и паралельно складываем все элементы массива в ячейку sum
DIM tov(5)
sum = 0
FOR i = 1 TO 5
tov(i) = 0
FOR j = 1 TO 7
tov(i) = tov(i) + a(i, j)
sum = sum + a(i, j)
NEXT j
NEXT i
maxt = tov(1)
nmaxt = 1
FOR i = 1 TO 5
IF tov(i) > maxt THEN
maxt = tov(i)
nmaxt = i
END IF
NEXT i
PRINT "Самый продаваемый товар - ";nmaxt
PRINT
PRINT "Общая выручка = "; sum