1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
i,j,p:integer;
begin
ClrScr;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=Random(15)-5;
gotoxy(j*5+5,i);
write(a[i,j]);
end;
p:=1;
writeln('');
for i:=1 to n do
for j:=1 to n do
if (a[i,j]<0) and odd(j) then
p:=p*a[i,j];
writeln('Ïðîèçâåäåíèå=',p);
end.
Объяснение:
ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ
1. Ввести двухмерный массив поэлементно с клавиатуры или получить его, используя генератор случайных чисел. Двухмерный массив может быть целочисленного или вещественного типа. Количество элементов в двухмерном массиве должна быть не менее десяти.
2. Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел.
3. Выполнить необходимые преобразования над исходным двухмерным массивом, а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованный двухмерный массив в виде таблицы чисел, а также вывести результаты вычислений.
ЗАДАНИЕ
В двухмерном массиве вычислить произведение отрицательных элементов всех нечетных столбцов.
а в маске 255.255.240.0 - 20 единичных бит
2. Судя по маске получим 16 подсетей, количество битов узлов подсети - 12
3. В каждой подсети по 4094 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 172.16.64.0
5. Адрес IPv4 первого узла в этой подсети 172.16.64.1
6. Адрес IPv4 последнего узла в этой подсети 172.16.79.254
7. Широковещательный адрес IPv4 в этой подсети 172.16.79.255