Найти среднее арифметическое между максимальным и минимальным значением А(30),заполненного случайными числами — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
DIM A(30)
RANDOMIZE TIMER
FOR i = 1 TO 30
    A(i) = INT(RND * 200) - 100
NEXT i
FOR i = 1 TO 30
    PRINT A(i);
NEXT i
PRINT
max = A(1): min = A(1)
FOR i = 2 TO 30
    IF A(i) > max THEN max = A(i)
    IF A(i) < min THEN min = A(i)
NEXT i
s = (min + max) / 2
PRINT "Srednee arifmeticheskoye="; s
END

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

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

Leave a Comment