Написать программу, использующую файлы, которая, получая входную последовательность целых чисел а1, а2,…, аN, удаляет из нее все элементы, превосходящие среднее арифметическое всей последовательности и распечатывает полученную последовательность- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
input n,m
dim a(n,m)
for u=1 to n
for p=1 to m
a(u,p)=int(rnd*9)
y=y+1
q=q+a(u,p)
? a(u,p)
next p
print
next u
z=q/y
input n,m
dim a(n,m)
for u=1 to n
for p=1 to m
if a(u,p)<z then ? a(u,p)
next p
print
next u

Программа задает текстовый файл с заданным количеством чисел

1
2
3
4
5
6
7
8
9
10
DEFINT A-Z
  CLS
INPUT "Skolko chisel v posledovatelnosti ?  :", n
OPEN "Test.txt" FOR OUTPUT AS #1
  FOR i = 1 TO n
   c = RND * 51
   PRINT #1, c
   PRINT c
  NEXT i
CLOSE #1

Итоговая программа

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DEFINT A-Z
  CLS
  PRINT "   Chitaem fail test.txt..."
  PRINT "   Ishodnaya posledovatelnost :"
OPEN "Test.txt" FOR INPUT AS #1
  WHILE NOT EOF(1)
    INPUT #1, c
    PRINT c;
    sum = sum + c
    n = n + 1
  WEND: PRINT
   sr# = sum / n
  SEEK #1, 1
  PRINT "   Rezultat:"
  FOR i = 1 TO n
    INPUT #1, c
    IF c &lt;= sr# THEN PRINT c;
  NEXT
CLOSE #1

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

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

Leave a Comment