var
B:array[1..100, 1..100] of real;
i, j, n:integer;
Pr:real;
flag:boolean;
begin
randomize;
write('n = ');
readln(n);
if n < 2 then
begin
writeln('некорректный размер матрицы');
Exit;
end;
for i := 1 to n do
begin
for j := 1 to n do
begin
B[i, j] := (random(101) - 50) / 10;
write(B[i, j], ' ');
end;
writeln;
end;
Pr := 1;
flag := false;
for i := 2 to n do
for j := 1 to i - 1 do
if B[i, j] < 0 then
begin
flag := true;
Pr := Pr * B[i, j];
end;
if Flag then
writeln('Pr = ', Pr)
else
writeln('Нет ни одно отрицательного элемента ниже главной диагонали');
readln;
end.
1. Сходство: независимо от визуально вы перемещаетесь от одного участка текста к другому
Различия: при перемещении с клавиш управления курсором позиция ввода (то место, куда будет вводиться текст при нажатии буквенно-цифровых кнопок клавиатуры) меняется. Во втором случае, независимо от того, какой участок текста виден на экране (после перемещения), позиция ввода осталась неизменной и при попытке ввода текста произойдёт автоматический возврат к позиции текстового курсора.
2. Сходства: В обоих режимах при нажатии алфиватно-цифровых кнопок клавиатуры происходит вывод на экран (в позиции курсора) набранного символа.
Различия: в режиме вставки текст, расположенный под курсором, сдвигается вправо, а в освободившуюся позицию впечатывается набранный символ. В режиме замены сдвижка вправо не происходит и впечатываемый символ затирает тот, что стоял на этом месте.
