(паскаль) в данной действительной квадратной матрице порядка n найти наибольший по модулю элменент. получить квадратную матрицу порядка n-1 путем выбрасывание из исхоодной матрицы какой нибудь строки и столбца на пересечении которых расположен элемент с найденым значением

Исходник и пример работы в приложении.

Насколько я понял, производить "выбрасывание из исходной" следует средствами работы с одной матрицей, а не скажем переписываем в другую матрицу нужных значений.
Поэтому, хоть в выводе матрицы и названы по-разному, в программе она одна и та же.
Сначала объявляем, задаём размерность и заполняем значениями ( взял от -25 до 25), ищем нужный элемент, потом в зависимости от его индексов переписываем матрицу и усекаем её размер.

1) Вирус  - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий

В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение

2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой

Примеры вредоносных действий

использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты

program parampampam; 
uses crt; 
var 
i: integer; {счетчик} 
s: integer; 
begin 
clrscr; {очистка экрана} 
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S'); 
writeln ('Введите число S, от 0 до 18: '); 
{ввод числа S с проверкой на корректность} 
repeat 
readln (s); 
if (s>18) or (s<0) then 
writeln ('Неверный ввод. Повторите') 
until (s<=18) and (s>=0); 
{вывод нужных чисел на экран (цикл с предусловием)} 
for i := 1 to 99 do 
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления} 
write (i, ' '); 
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши} 
end.