2.Нарисуй объект, который получится при выполнении последовательности команд. Укажите на рисунке конечное положение черепашки.
по
пр 45 вп 45 пр 45 вп 20 пр 45 вп 45
пр 135 вп 80 нд 70 лв 90 вп 50
пр 90 вп 60 пр 90 вп 50
пп
пр 90 вп 20 пр 90 вп 10
по
вп 20 лв 90 вп 20 лв 90
вп 20 лв 90 вп 20
пп
3. Чему равно N если на экране после выполнения алгоритма должен
получиться правильный пятиугольник?
ПОВТОРИ 6 [ВП 40 ПР N]
4. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 10 [ВП 5 ПР 45]
5. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 5 [ ПОВТОРИ 4 [ ВП 40 ПР 90] ПР 120]
6. Что появится на экране в результате выполнения алгоритма?
ПОВТОРИ 4 [ ПОВТОРИ 3 [ ВП 10 ПР 120] ПР 120]
273
446
Ответы на вопрос:
Const m1 = 20; n1 = 20; var a: array[1..m1, 1..n1] of integer; b: array[1..m1] of real; i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer; begin write('введите через пробел число строк и столбцов массива: '); readln(m, n); max : = -32768; min : = 32767; for i : = 1 to m do begin write('строка ', i, ': '); for j : = 1 to n do begin read(t); a[i, j] : = t; if max < t then begin max : = t; imax : = i; jmax : = j end else if min > t then begin min : = t; imin : = i; jmin : = j end end end; a[imax, jmax] : = min; a[imin, jmin] : = max; writeln('результирующий массив'); for i : = 1 to m do begin s : = 0; kn : = 0; for j : = 1 to n do begin write(a[i, j]: 6); if a[i, j] < 0 then begin s : = s + a[i, j]; inc(kn) end end; writeln; if kn > 0 then b[i] : = s / kn else b[i] : = 0 end; writeln('среднее арифметическое отрицательных элементов построчно: '); for i : = 1 to m do writeln(b[i]: 10: 4) end. тестовое решение: введите через пробел число строк и столбцов массива: 4 6 строка 1: 5 -3 0 7 11 -4 строка 2: 14 -12 -7 13 11 18 строка 3: 3 11 8 -14 25 15 строка 4: 15 0 -17 21 0 -21 результирующий массив 5 -3 0 7 11 -4 14 -12 -7 13 11 18 3 11 8 -14 -21 15 15 0 -17 21 0 25 среднее арифметическое отрицательных элементов построчно: -3.5000 -9.5000 -17.5000 -17.0000
Популярно: Информатика
-
jijafhv463623.04.2023 22:31
-
seksi250521.03.2023 04:59
-
Никита56383116.11.2022 23:04
-
avadnure26.07.2021 21:25
-
даша346423.09.2020 13:57
-
anastasiaplotni14.09.2022 03:06
-
maksburyas15.04.2023 10:45
-
Magomedrasul0555521.10.2020 16:34
-
8905168200719.03.2021 09:21
-
Maxguvci23.11.2021 17:52