Определить номер строки матрицы, для которой среднее арифметическое её элементов минимально

@pionerka · Регистрация: 22.02.2010

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

Здравствуйте ребята.Собственно задача: В двумерном массиве вещественных чисел найти номер строки, для которой среднее арифметическое её элементов минимально.

PureBasic

CLS
PRINT
PRINT "Введите размер массива"
InputN:
INPUT "Количество строк... ", n
 
       
INPUT "Количество столбцов... ", m
PRINT
PRINT "Заполнение массива:"
 
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT "("; i; ","; j; ")"; " Элемент массива... ";
                INPUT " ", a(i, j)
        NEXT j
NEXT i
 
PRINT "Исходный массив:"
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT a(i, j);
        NEXT j
        PRINT
NEXT i
 
FOR i = 1 TO n
s(i) = 0
FOR j = 1 TO m
s(i) = s(i) + a(i, j)
 
 
                NEXT j
       
NEXT i
PRINT
FOR i = 1 TO n
arf(i) = s(i) \ m
PRINT "Среднее арифметическое"; i; "строки", arf(i)
NEXT i
PRINT
min = arf(1)
indexmin = 1
FOR i = 2 TO n
IF arf(i) < min THEN 
 min = arf(i)
 Indexmin = i
END IF
NEXT i
 
PRINT "Минимальное ср. ариф"; min; "находится в строке", indexmin
PRINT

Все бы хорошо, но препод придрался. Например, если будет 2 минимальных ср. арифметических, то он должен выводить номера тогда 2-х строк. Как тогда быть?

@Lyohich84 · 03.06.2010, 07:22

PureBasic

CLS
PRINT
PRINT "Введите размер массива"
InputN:
INPUT "Количество строк... ", n
 
       
INPUT "Количество столбцов... ", m
PRINT
PRINT "Заполнение массива:"
 
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT "("; i; ","; j; ")"; " Элемент массива... ";
                INPUT " ", a(i, j)
        NEXT j
NEXT i
 
PRINT "Исходный массив:"
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT a(i, j);
        NEXT j
        PRINT
NEXT i
 
FOR i = 1 TO n
s(i) = 0
FOR j = 1 TO m
s(i) = s(i) + a(i, j)
 
 
                NEXT j
       
NEXT i
PRINT
FOR i = 1 TO n
arf(i) = s(i) \ m
PRINT "Среднее арифметическое"; i; "строки", arf(i)
NEXT i
PRINT
min = arf(1)
indexmin = 1
FOR i = 2 TO n
IF arf(i) < min THEN 
 min = arf(i)
END IF
NEXT i
FOR i=1 TO n
IF arf(i)=min THEN 
indexmin=i 
PRINT "Минимальное ср. ариф"; min; "находится в строке", indexmin
END IF
NEXT i
PRINT

@кот Бегемот · 03.06.2010, 08:42

Lyohich84,
ни один массив не объявлен, а их у вас 3,
что за команда в строке 4?
в строке 38 надо не

PureBasic

1	arf(i) = s(i) \ m

а

PureBasic

1	arf(i) = s(i) / m

мы делим не целочисленно, а обычным способом, иначе это не будет средним арифметическим
и ответ будет неверным!

Добавлено через 15 минут

PureBasic

CLS
INPUT "Ввведите количество строк... ", n    
INPUT "Введите количество столбцов... ", m
dim a(n,m),arf(n)
PRINT "Заполнение массива:"
 FOR i = 1 TO n
   FOR j = 1 TO m
     PRINT " Элемент массива ("; i; ","; j; ")=";
      INPUT " ", a(i, j)
    NEXT 
NEXT 
 PRINT "Исходный массив:"
FOR i = 1 TO n
  FOR j = 1 TO m
    PRINT a(i, j);
   NEXT 
    PRINT
NEXT 
FOR i = 1 TO n
s = 0
FOR j = 1 TO m
s = s + a(i, j)
 NEXT 
arf(i) = s / m    
PRINT "Среднее арифметическое"; i; "строки", arf(i)
NEXT 
 
min = arf(1)
indexmin = 1
FOR i = 2 TO n
IF arf(i) < min THEN  min = arf(i)
NEXT i
print "Минимальное ср. ариф"; min; "находится в строке"
FOR i=1 TO n
IF arf(i)=min THEN PRINT  i
NEXT i

	03.06.2010, 08:42

Опции темы