B.) Если это антивирус.
c.) Обнаружение, удаление вирусов. Защита браузера, очистка, ускорение, защита паролей и т.д.
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
Посмотреть обучающие ролики на ютубе ,пытаться писать простые программы. много способов надо лишь хотеть его изучать ,да и особо он не нужен
Program abc;
var a,b,c:integer;
begin
readln(a,b,c);
if ((a=b) and (b=c) and (c=a)) then writeln(sqr(a)+sqr(b)+sqr(c))
else if (a>b) and (b>c) then begin b:=a; c:=a; writeln('a=',a,' b=',b,' c=',c) end
else if (b>a) and (c<b) then begin a:=b; c:=b; writeln('a=',a,' b=',b,' c=',c) end
else if (c>a) and (c>b) then begin a:=c; b:=c; writeln('a=',a,' b=',b,' c=',c) end;
<span>end.</span>