В матрице А(N,М) найти максимальный МХ и минимальный MN элементы, а также произведение P всех элементов, находящемся в прямоугольнике минимальных размеров — Basic(Бейсик)

disel

Включающий оба этих элемента и сумму S элементов, находящихся вне этого прямоугольника. В случае, если оба элемента находятся в одной строке/столбце, прямоугольник превращается в фрагмент этой строки/столбца.

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
INPUT "vvedite kol-vo strok ", n
INPUT "vvedite kol-vo stolbcov ", m
DIM a(n, m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 8) + 1
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT
PRINT
NEXT
min = a(1, 1)
xmin = 1
ymin = 1
max = a(1, 1)
xmax = 1
ymax = 1
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) < min THEN min = a(i, j): xmin = i: ymin = j
IF a(i, j) > max THEN max = a(i, j): xmax = i: ymax = j
NEXT
NEXT
OPEN "output.txt" FOR OUTPUT AS #1
PRINT #1, "min= a("; xmin; ","; ymin; ")="; min
PRINT #1, "max= a("; xmax; ","; ymax; ")="; max
IF xmin > xmax THEN SWAP xmin, xmax
IF ymin > ymax THEN SWAP ymin, ymax
p = 1
FOR i = 1 TO n
FOR j = 1 TO m
IF i >= xmin AND i <= xmax AND j >= ymin AND j <= ymax THEN p = p * a(i, j) ELSE s = s + a(i, j)
NEXT
NEXT
PRINT #1, "proizvedenie="; p
PRINT #1, "summa="; s
CLOSE

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

Leave a Comment