Даны 3 массива по 28 элементов. Найти минимальное из средних арифметических для соответствующих элементов данных массивов. Напечатать значение элементов, давших этот минимум- 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
27
28
29
30
DEFINT A-Z
 CLS
DIM A(27), B(27), C(27)
RANDOMIZE TIMER
FOR i = 0 TO 27
 A(i) = RND * 51
 B(i) = RND * 51
 C(i) = RND * 51
 PRINT A(i);
NEXT: ?
FOR i = 0 TO 27
 PRINT B(i);
NEXT: ?
FOR i = 0 TO 27
 PRINT C(i);
NEXT: ?
  ' Считаем
FOR i = 0 TO 27
 S1 = S1 + A(i)
 S2 = S2 + B(i)
 S3 = S3 + C(i)
NEXT
 S1 = S1 / 28
 S2 = S2 / 28
 S3 = S3 / 28
PRINT "Srednie arifm massivov : "; S1; S2; S3
IF S1 > S2 THEN SWAP S1, S2
IF S2 > S3 THEN SWAP S2, S3
IF S1 > S2 THEN SWAP S1, S2
 PRINT "Minimalnoe sr. arifmetich : "; S1

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

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

Leave a Comment