Дан произвольный вектор. Элементы случайные целые числа до 200.Сформировать новый массив а) Чётные числа-разделить на 3 б) нечётные -разделить на 2 В новом массиве определить макс. из дробных и миним. из целых,их номера. Вывести оба массива — QBasic(Бейсик)

CLS
INPUT "Dlina massiva:", n
DIM A(n) AS INTEGER, B(n) AS SINGLE, Max, Min, MaxN, MinN
  ' Заполним массив
  FOR i = 1 TO n
     A(i) = RND * 200
  NEXT
  ' Поделим как надо
  FOR i = 1 TO n
    IF (A(i) AND 1) = 0 THEN B(i) = A(i) \ 3 ELSE B(i) = A(i) / 2
  NEXT
  ' Ищем Max из дробных и Min из целых, номера Min и Max
  Max = B(1)
  Min = B(1)
  MaxN = 1: MinN = 1
  FOR i = 1 TO n
    IF (B(i) - INT(B(i))) > 0 THEN
       IF B(i) > Max THEN Max = B(i): MaxN = i
    ELSE
       IF B(i) < Min THEN Min = B(i): MinN = i
    END IF
  NEXT
  '  Выводим массивы и результат
 PRINT STRING$(80, CHR$(196))
  PRINT "Pervyj massiv:"
  FOR i = 1 TO n
    PRINT A(i);
  NEXT: PRINT
  PRINT "Vtotoj massiv:"
  FOR i = 1 TO n
    PRINT B(i);
  NEXT: PRINT
  PRINT "Min iz celih:"; Min; "   ego index:"; MinN
  PRINT "Max iz drobnyh:"; Max; "   ego index:"; MaxN

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

Leave a Comment