Даны три массива. Построить четвёртый, элемент которого — номер массива, в котором оказался минимальный из соответствующих исходных элементов. Подсчитать сколько в полученном массиве окажется элементов, величины которых равны 1, 2, 3- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  DEFINT A-Z
  CLS
INPUT "Vvedite kol-vo el-tov : ", n
DIM A(n), B(n), C(n), D(n)
   '  Заполним массивы и на экран их
   FOR i = 1 TO n
     A(i) = RND * 50
     B(i) = RND * 50
     C(i) = RND * 50
     PRINT A(i), B(i), C(i)
   NEXT: PRINT CHR$(13); "Massiv 4"
   '  Найдем мин. из 3-х массивов
   FOR i = 1 TO n
      IF A(i) < B(i) AND A(i) < C(i) THEN
        D(i) = 1: Ed = Ed + 1
      ELSE
        IF B(i) < C(i) THEN D(i) = 2: Dv = Dv + 1 ELSE D(i) = 3: Tr = Tr + 1
      END IF
     PRINT D(i);
   NEXT: PRINT
   PRINT "Edinic v massive :"; Ed
   PRINT "Dvoek v massive :"; Dv
   PRINT "Troek v massive :"; Tr

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

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

Leave a Comment