program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.
3. 15
4. 4) ⌐A & ⌐B
Объяснение:
3.
y = 1 x = 11
пока условие x > 0 истинно (да) выполняется цикл
Действия в цикле:
1) x = x - 3
2) y = y + x
y = 1 x = 11
11 > 0 (да) выполняется цикл
Действия в цикле:
1) x = x - 3 = 11 - 3 = 8
2) y = y + x = 1 + 8 = 9
y = 9 x = 8
8 > 0 (да) выполняется цикл
Действия в цикле:
1) x = x - 3 = 8 - 3 = 5
2) y = y + x = 9 + 5 = 14
y = 14 x = 5
5 > 0 (да) выполняется цикл
Действия в цикле:
1) x = x - 3 = 5 - 3 = 2
2) y = y + x = 14 + 2 = 16
y = 16 x = 2
2 > 0 (да) выполняется цикл
Действия в цикле:
1) x = x - 3 = 2 - 3 = -1
2) y = y + x = 16 + (-1) = 16 - 1 = 15
y = 15 x = -1
-1 > 0 (нет) цикл не выполняется
y = 15 x = -1
4.
Составим таблицу истинности для каждого выражения (смотри картинку)
