QBasic. Массив

[andronova]

Опишите алгоритм подсчёта количества элементов, равных минимальному, в целочисленном массиве из 30 элемнтов.

Моё решение:

DIM A(30) AS INTEGER
DIM I, K,MINE AS INTEGER
RANDOMIZE TIMER
FOR I=1 TO 30
A(I)=INT(RND*100)
PRINT USING "###"; A(I);
NEXT I
FOR I=1 TO 30
IF A(I)<A(I+1) THEN MINE=A(I)
NEXT I
PRINT MINE
NEXT I=10 TO 30
IF I=MINE THEN K=K+1
NEXT I
PRINT K

Помогите, пожалуйста. Незнаю правильно, или нет.

[Sazary]

Итак, ошибки:

A(I)=INT(RND*100)

Не ошибка, но лучше умножать на что-нибудь поменьше (например, на 20), иначе увидеть k>1 будет сложно.

IF A(I)<A(I+1) THEN MINE=A(I)

Сразу две ошибки:
Во-первых, нужно сравнивать с MINE:

 IF A(I) < MINE THEN

Во-вторых, все конструкции IF нужно закрывать: END IF

PRINT MINE

Перед этим хорошо бы добавить перенос строки, иначе выведет вперемешку с числами массива.

NEXT I=10 TO 30
IF I=MINE THEN K=K+1
NEXT I

Вообще нечто странное ) Хотя, возможно, вы просто опечатались.

И еще в конце программы принято ставить END (хоть и не обязательно).

Все исправил, массив вывожу в несколько строк (для лучшей читаемости).

DIM A(30) AS INTEGER
DIM I, K, MINE AS INTEGER
RANDOMIZE TIMER
CLS
FOR I = 1 TO 30
 A(I) = INT(RND * 20)
 PRINT USING "####"; A(I);
 IF I MOD 10 = 0 THEN
  PRINT
  END IF
NEXT I

MINE = A(1)
FOR I = 1 TO 30
 IF A(I) < MINE THEN
  MINE = A(I)
 END IF
NEXT I

PRINT
PRINT USING "MINE= ##"; MINE

K = 0
FOR I = 1 TO 30
 IF A(I) = MINE THEN
  K = K + 1
 END IF
NEXT I
PRINT USING "K=#"; K

END

[andronova]

Спасибо! Рада, что хоть что-то получается.

[andronova]

Проверьте ещё, пожалуйста!

Дан целочисленный прямоугольный массив 6х10. Опишите алгоритм вычисления суммы минимальных элементов из каждой строки. Напечатать значение этой суммы. Предполагается, что в каждой строке такой элемент единственный.

DIM A(6,10) AS INTEGER
DIM I, J, MINI, S AS INTEGER
RANDOMIZE TIMER
CLS
FOR I=1 TO 6
FOR J=1 TO 10
A(I,J)=INT(RND*20)
PRINT USING "####"; A(I,J);
NEXT J
NEXT I
S=0
FOR I=1 TO 6
MINI=A(I,1)
FOR J=1 TO 10
IF MINI>A(I,J) THEN
MINI=A(I,J)
END IF
NEXT J
PRINT USING "MINI=#";MINI
S=S+MINI
NEXT I
PRINT USING "S=#";S
END

[andronova]

И ещё одна.

В целочисленном массиве из 30 элементов найти среднее значение чётных чисел, проверяя, что есть хотя бы одно целое число.

DIM A(30) AS INTEGER
DIM I, S, K AS INTEGER
RANDOMIZE TIMER
CLS
FOR I=1 TO 30
A(I)=INT(RND*30)
NEXT I
S=0
K=0
FOR I=1 TO 30
IF A(I) MOD 2 = 0 THEN
S=S+A(I)
K=K+1
END IF
NEXT I
PRINT
PRINT USING "K=#";K
PRINT USING "S=#";S
SR=S/K
PRINT USING "SR=#";SR
END

Вроде получается, но среднее значение SR он выводит округлённым целым числом. Его как-то надо объявить, наверно. А я незнаю.
Потом ещё - а вдруг там не окажется ни одного чётного числа. Это же тоже как-то надо вывести. Тоже не пойму как.
Очень жду вашей помощи.

[Sazary]

В первой все в порядке. Только добавьте при заполнении массива:

A(I,J)=INT(RND*20)
PRINT USING "####"; A(I,J);
NEXT J
PRINT
NEXT I

Иначе матрица выводится одной строкой.
=====================

Вторая:
Для среднего значения нужна переменная вещественного типа (DOUBLE или SINGLE).

DIM a(30) AS INTEGER
DIM i, S, k AS INTEGER
DIM sred AS DOUBLE
RANDOMIZE TIMER
CLS
FOR i = 1 TO 30
 a(i) = INT(RND * 10) + 1
 PRINT USING "####"; a(i);
 IF i MOD 10 = 0 THEN
 PRINT
 END IF
NEXT i
S = 0
k = 0
FOR i = 1 TO 30
 IF a(i) MOD 2 = 0 THEN
  S = S + a(i)
  k = k + 1
 END IF
NEXT i
PRINT
PRINT USING "K=##"; k
PRINT USING "S=##"; S
' А вот тут добавим проверку
IF k = 0 THEN
 PRINT "Net chetnyh chisel"
ELSE
sred = S / k
PRINT USING "Sred=##.###"; sred
END IF
END

Непонятна вот эта фраза в условии:

проверяя, что есть хотя бы одно целое число.

Ведь четность - характеристика целого числа.

[andronova]

Ошиблась, конечно, чётное число!!!

[andronova]

И ещё, не очень понимаю зачем это:

IF i MOD 10 = 0 THEN
PRINT
END IF

[Sazary]

В таком случае, все в порядке.
Замечу еще, что переменная SR в вашем коде не была объявлена.

И ещё, не очень понимаю зачем это:

Т.к. массив длинный (30 чисел), хорошо бы его вывести в несколько строк.
Здесь после каждых 10 элементов переводится строка.
Это не обязательно.

[andronova]

Спасибо большое! К сожалению не могу оставить Вам отзыв. Ведь мне только Вы помогаете.
Ещё раз спасибо!