Дана матрица Х (n,m) целых чисел. Определить сумму ее максимального элемента в строке с минимальным первым элементом и минимального элемента в строке с максимальным первым элементом. Вывести матрицу и результат — 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
CLS
INPUT "Vvedite kol-vo stolbcov:", xl
INPUT "Vvedite kol-vo strok:", yl
DIM X(xl, yl) AS INTEGER, Sum, el1, el2, Min, Max, NumStrok, NumStrok2
RANDOMIZE TIMER
' Zapolneniye matrici
FOR ix = 1 TO xl: FOR iy = 1 TO yl
        X(ix, iy) = (RND * 101) - 50
NEXT: NEXT
 
' Summa maks elementa v stroke s min pervim elementom
' ishem stroku s min pervim elementom
Min = X(1, 1): Max = Min: NumStrok = 1: NumStrok2 = 1
FOR iy = 1 TO yl
    IF X(1, iy) < Min THEN NumStrok = iy: Min = X(1, iy)
    IF X(1, iy) > Max THEN NumStrok2 = iy: Max = X(1, iy)
NEXT
' ishem max element
el1 = X(1, NumStrok)
FOR ix = 1 TO xl
    IF X(ix, NumStrok) > el1 THEN el1 = X(ix, NumStrok)
NEXT
' ishem min element
el2 = X(1, NumStrok2)
FOR ix = 1 TO xl
    IF X(ix, NumStrok2) < el2 THEN el2 = X(ix, NumStrok2)
NEXT
Sum = el1 + el2
'  Rezultat
PRINT "Matrica:"
FOR iy = 1 TO yl: FOR ix = 1 TO xl
        PRINT X(ix, iy);
NEXT: PRINT: NEXT
PRINT "Summa:"; Sum

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

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

Leave a Comment