Даны массивы Х1,…, Х10; У1,…, У15. Если Х среднее > У среднего, то заменить Уi < У среднего на 2.5, в противном случае заменить Xi < X среднего на 10 - 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
31
32
33
34
35
36
37
38
39
40
41
42
43
CLS
DIM x(10): DIM y(15)
RANDOMIZE TIMER
FOR i = 1 TO 10
    x(i) = INT(RND * 100) - 50
NEXT i
FOR i = 1 TO 15
    y(i) = INT(RND * 100) - 50
NEXT i
PRINT "Massiv x(10)"
FOR i = 1 TO 10
    PRINT x(i);
NEXT i
PRINT
PRINT "Massiv y(15)"
FOR i = 1 TO 15
    PRINT y(i);
NEXT i
PRINT
s = 0
FOR i = 1 TO 10
    s = s + x(i)
NEXT i
xsr = s / 10
s = 0
FOR i = 1 TO 15
    s = s + y(i)
NEXT i
ysr = s / 15
IF xsr > ysr THEN
    PRINT "Massiv Y posle preobrazovaniy"
    FOR i = 1 TO 15
        IF y(i) < ysr THEN y(i) = 2.5
        PRINT y(i);
    NEXT i
ELSE
    PRINT "Massiv X posle probrazovaniy"
    FOR i = 1 TO 10
        IF x(i) < xsr THEN x(i) = 10
        PRINT x(i);
    NEXT i
END IF
END

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

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

Leave a Comment