Найти максимальный из элементов, расположенных выше n строки, а также сумму элементов четных строк- 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
27
28
29
30
rem
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)
PRINT "Введите номер строки"
INPUT n
FOR i=1 TO n -1
FOR j=1 TO t
IF max < tabl (i,j) THEN max = tabl (i,j)
NEXT j
NEXT i
PRINT "Максимальный элемент выше"; n; "строки ="; max
FOR i=1 TO s
FOR j=1 TO t
IF i MOD 2 = 0 THEN sum = sum + tabl(i,j)
NEXT j
NEXT i
PRINT "Сумма элементов четных строк ="; sum
END

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

Leave a Comment