K-2 1. Исполнить блок - схему
X= 2 a
при X
начало
х
2
X:=X-3
3
Y:=11
+
и
Y:=Y-4
S:=X+Y
5
6
S.
конец
2. Исполнить блок – схему
а) при д= б) при A=A
начал
1
A А
2.
B:=A+
Her
В<s
да
A:=A+2
A:=0
A
конец

185

226

Посмотреть ответы 1

Ответы на вопрос:

sasha1836

Информатика

4,7(73 оценок)

Const n1 = 20; m1 = 20; var a: array[1..n1, 1..m1] of integer; b: array[1..m1] of integer; i, j, m, n: integer; begin write('введите через пробел число строк и столбцов массива: '); readln(n, m); randomize; writeln('исходный массив'); for i : = 1 to n do begin for j : = 1 to m do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; writeln('сформированный массив'); for j : = 1 to m do begin i : = 1; while (i < = n) and (a[i, j] > = 0) do i : = i + 1; if i < = n then b[j] : = a[i, j] else b[j] : = -99; write(b[j]: 4) end; writeln end. тестовое решение: введите через пробел число строк и столбцов массива: 3 10 исходный массив -11 -18 -42 -22 -9 2 21 15 40 -3 4 -5 40 -13 -44 -37 43 47 1 -39 20 50 21 -18 -10 6 12 -10 43 -37 сформированный массив -11 -18 -42 -22 -9 -37 -99 -10 -99 -3