ввести с клавиатуры 40 элементов. определить сколько среди них четных чисел. Вычислить и вывести на - id1538563120210121 от 607156 21.01.2021 15:34

Question

Информатика: ввести с клавиатуры 40 элементов. определить сколько среди них четных чисел. Вычислить и вывести на экран разность данных элементов. Python

607156 · Accepted Answer

DIM m AS INTEGER, n AS INTEGER
CLS
INPUT "n,m=", n, m
REDIM a(1 TO n, 1 TO m) AS INTEGER
imin = 1: jmin = 1: imax = 1: jmax = 1
RANDOMIZE TIMER
FOR i = 1 TO n
   FOR j = 1 TO m
      t = INT(51 * RND): a(i, j) = t
      PRINT t;
      IF a(imin, jmin) > t THEN
         imin = i: jmin = j
      END IF
      IF a(imax, jmax) < t THEN
         imax = i: jmax = j
      END IF
   NEXT j
   PRINT
NEXT i
PRINT "Sum="; imin + jmin + imax + jmax

Тестовое решение
n,m=8,5
46 23 13 43 35
18 47 44 41 37
45 0 34 30 7
0 28 27 49 47
46 18 48 39 11
2 17 32 43 38
31 43 15 16 16
30 32 46 9 31
Sum= 13

ввести с клавиатуры 40 элементов. определить сколько среди них четных чисел. Вычислить и вывести на экран разность данных элементов. Python

MOGZ ответил