Переделать массив Q(K) в массив F(J), убрав из него отрицательные и нулевые элементы и поделив положительные элементы на значение максимального элемента массива. Вывести новый массив F(J). (значения переменных считать произвольными)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT k
DIM q(k)
FOR i = 1 TO k
    INPUT "vvedite element ", q(i)
NEXT
max = q(1)
FOR i = 1 TO k
    IF q(i) > max THEN max = q(i)
NEXT
PRINT "max="; max
FOR i = 1 TO k
    IF q(i) > 0 THEN j = j + 1: f(j) = q(i) / max
NEXT
FOR i = 1 TO j
    PRINT f(i); " ";
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment