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

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

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

Leave a Comment