+ Вони можуть робити всю роботу за тебе
+Вони не можуть захворити
-Вони можуть зламатися
-Вони ніколи не зможуть замінити людей.
Содержит "Если" и "Иначе", либо подобные.
Например - "Он сказал: "либо вы отдаете деньги сейчас, либо вы пожалеете".
if (Вы отдали деньги) then (Все хорошо)
else (Вы пожалеете)
Диск-носитель
Бумага-носитель
Флешка-носитель
Указатель - носитель
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(7, 10, 15);
a.Println;
var i := a.IndexMin;
Writeln('min a[', i + 1, '] = ', a[i])
end.
<h2>Пример</h2><h3>15 12 10 13 12 13 10</h3><h3>min a[3] = 10</h3>
Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
inc(i);
end;
i:=1;
while i<=length(chislo) do
begin
if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
inc(i);
end;
end;
Writeln(chislo);
readln;
end.