4. Выделите все ячейки, содержащие гиперссылки (например, нажав CTRL+A). Щелкните их правой кнопкой мыши и выберите пункт Удалить гиперссылки.5. Щелкните правой кнопкой мыши в любом месте ссылки и в меню выберите пункт Изменить гиперссылки. В диалоговом окне Изменение гиперссылки выберите текст в поле Текст. Введите текст, который вы хотите использовать для ссылки, и нажмите кнопку ОК.6. Выделите текст или рисунок, который должен представлять гиперссылку. Нажмите CTRL+K. Можно также щелкнуть текст или рисунок правой кнопкой мыши и в shortcut-меню щелкнуть ссылку. В окне Вставка гиперссылки введите или вставьте ссылку в поле Адрес.
Agadzhanyan-Ekaterina
30.12.2020
Const n = 10; var a, s1, s2: integer; i, q1, q2: byte; begin s1 : = 0; q1 : = 0; s2 : = 0; q2 : = 0; writeln('введите ', n, ' чисел: '); for i : = 1 to n do begin read(a); if a < 0 then begin s1 : = s1 + a; inc(q1) end; if a > 0 then begin s2 : = s2 + a; inc(q2) end; end; writeln; if q1 > 0 then begin writeln('сумма отрицательных чисел: ', s1); writeln('количество отрицательных: ', q1) end else writeln('отрицательных нет'); if q2 > 0 then begin writeln('сумма положительных чисел: ', s2); writeln('количество положительных: ', q2) end else writeln('положительных нет') end .