Var ar:array[1..n] of integer; i:integer; begin for i:=1 to n do readln(ar[i]); for i:=1 to n-1 do if ar[i]>ar[i+1] then begin writeln('Убывает на одном из участков'); exit; end; writeln('Возрастает'); end.
1. Есть очень много вирусов они могут очень быть опасными для человека или того же животного. Известные вирусы: Коронавирус, орви, пневмония или есть много видов грип они все очень опасные и чтобы защитить свой организм нужно жить правильно короче здарова нужно жить.
2. Вреданостные программы создают для того чтобы взломать компьютер, телефон или ноутбук. Создают это плохие хакеры. Они это делают для того чтобы украсть твои данные.
3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.