Program rost;
const n=10;
var i,j,x,imin:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i], ' ' );
writeln;
for i:=1 to n-1 do
begin
imin:=i;
for j:=i+1 to n do if a[j]<a[imin] then imin:=j;
x:=a[i];
a[i]:=a[imin]; a[imin]:=x
end;
for i:=1 to n do write (a[i], ' ' );
writeln;
end.
Пример:
6 4 9 2 5 1 3 7 8 2
6 4 9 2 5 1 3 7 8 2
1 2 2 3 4 5 6 7 8 9
Program Sport;
Var
s: Real;
day: Integer;
Begin
day := 1;
s := 10;
while s < 20 do
begin
day := day + 1;
s := s + (s/100)*10;
end;
WriteLn(day);
ReadLn;
End.
Формула (в ячейке А1 записан расход электроэнергии):
=ЕСЛИ(A1<=100;2*A1;2*100+(A1-100)*2,5)
1. Компьютерный вирус - это вредоносная программа, которая способна воспроизводить себя через компьютер или через компьютерные сети. Компьютер может заразиться вирусом через флешку, электронную почту или программы для обмена сообщениями.
2. Флешка, диск, интернет.
<span>
3. У</span><span>меньшение объема свободной оперативной памяти; замедление загрузки и работы компьютера; непонятные (без причин) изменения в файлах, а также изменения размеров и даты последней модификации файлов; ошибки при загрузке операционной системы; <span>непонятные системные сообщения, музыкальные и визуальные эффекты и т.д.
4. П</span></span><span>отеря программ, данных, стирание информации в системных файлах, выход из строя движущихся частей жесткого диска, уменьшение объёма памяти, зависание компьютера, и многое другое.
5. Не заходить на незнакомые сайты; регулярно проверять компьютер на наличие вирусов(использовать антивирус), не запускать незнакомые файлы.
6. Антивирус - это программа для обнаружения компьютерных вирусов. Виды антивирусов: сканеры, блокираторы, иммунизаторы.
</span>