<span>Как называется указание на языке HTML - d)тег
Какое сокращение показывает официальный адрес интернет-ресурсов - a) URL </span>
<span>mas[1]:=10;
mas[5]:=25;
mas[9]:=16;
cледовательно
A[1]:=(16-10)*25];
получаем
</span>
150
Сначала появилась почта - в разных странах она возникала в разное время, но возникла вскоре после изобретения письменности. Затем был изобретен телеграф, сначала - оптический телеграф Шаппа, затем электрический телеграф Морзе, передающий сигналы специальной кодовой азбукой. Затем Александр Белл изобрел телефон. Потом, уже в XX веке, появилось радиовещание, потом телевидение и наконец компьютерные сети.
Погнали.
В первом блоке у нас объявление переменных целого типа b равное 20 и и c равное нулю (0).
Следующий блок открывает цикл с условием, пока b (20) > 3, выполнять блок, который увеличивает значение переменной c = c + b и b = b - 5.
Накатав сей алгоритм на шарпе, вот результат лога из консоли:
Program array2d;
var
v_range, v_neg, i, j, n: integer;
array: array of array of integer;
i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
for j:= 1 to n do
array(i, j) := random(100);
for i:= 1 to n do
for j:= 1 to n do
begin
if array(i, j) in a..b then
begin
if Assigned(v_neg) then
break; {перевірка, чи є негативне значення знайденим}
v_range := array(i, j);
i_range[1] := i;
i_range[2] := j;
end;
if array(i, j) < 0 then
begin
if Assigned(v_range) then
break;
v_neg := array(i, j);
i_neg[1] := 1;
i_neg[2] := 2;
end;
end;
if Assigned(v_range) and Assigned(v_neg) then
begin
array(i_range[1], i_range[2]) := v_neg;
array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.