Найти среднее арифметическое наибольшего и наименьшего значения её элементов — Basic(Бейсик)

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
PRINT "Введите количество строк"
INPUT s
PRINT "Введите количество столбцов"
INPUT t
DIM tabl(1 TO s, 1 TO t) AS INTEGER
FOR i = 1 TO s
FOR j = 1 TO t
tabl(i, j) = 1 + INT(RND * 100)
PRINT tabl(i, j);
NEXT j
PRINT
NEXT i
max = tabl(1, 1)
min = tabl(1, 1)
FOR i = 1 TO s
FOR j = 1 TO t
IF max < tabl(i, j) THEN max = tabl(i, j)
IF min > tabl(i, j) THEN min = tabl(i, j)
NEXT j
NEXT i
PRINT "Максимальный элемент ="; max
PRINT "Минимальный элемент ="; min
sr = (max + min) / 2
PRINT "Среднее максимального и минимального ="; sr
END

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

Leave a Comment