Из массива A(N) сформировать новый массив из значений элементов больших 7 и имеющих индексы кратные 4- 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
24
25
26
  CLS
  INPUT "Vedite N:", N
DIM A(N)
  '  Заполним массив
  FOR i = 1 TO N
    PRINT "Vvedite element №" + STR$(i) + ": ";
    INPUT "", A(i)
  NEXT
   '  Смотрим сколько элементов
  FOR i = 4 TO N STEP 4
    IF A(i) > 7 THEN K = K + 1
  NEXT
  DIM B(K)
   '  Копируем в новый массив
  FOR i = 4 TO N STEP 4
    IF A(i) > 7 THEN F = F + 1: B(F) = A(i)
  NEXT
   '  Вывод обеих массивов
  PRINT "A :";
  FOR i = 1 TO N
    PRINT A(i);
  NEXT: PRINT
  PRINT "B :";
  FOR i = 1 TO K
    PRINT B(i);
  NEXT

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

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

Leave a Comment