В некотором царстве, в некотором государстве жила-была…
Нет! Так все сказки начинаются. А моя сказка начинается по-другому.
На далёком острове среди бушующего океана Информации раскинулось государство Технология. Царствовала там мудрая Информатика. И были у неё подданные: Микросхемы, Мониторы, Процессоры, Клавиатуры, Компьютерные Мыши и многие другие жители.
Захотела Информатика общаться с другими государствами и построила Интернет-порталы. Узнали о государстве Технология на близких островах и далёких землях. Царица Информатика была щедрой правительницей. Она приходила на всем, кто её об этом просил. Все радовались неоценимым подаркам Информатики.
Но один злой правитель захотел всё могущество и знание Информатики прибрать к своим рукам. Однако ему не удалось заполучить её знания, поэтому он решил причинить Информатике вред. И начал он создавать армию Вирусов. Вирусы были очень коварные. Под видом добрых намерений они пробирались в дома к Программам и портили их. Информатика и не догадывалась, какая угроза нависла над её жителями. Однажды она зашла к Windows XP, а он оказался испорченным и не узнал её. Информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. Windows вспомнил и сказал об этом Информатике.
Информатика созвала совет Старейшин и рассказала им о проблеме. Посовещавшись, они вместе начали создавать Антивирусы. Получилось целое войско: Dr. Web, Kaspersky, Avira, Panda, Nod32 и другие. Когда следующая партия Вирусов через Интернет, на них набросились Антивирусы и связали их. Подлые враги рассказали, кто их сделал. Злого правителя поймали, посадили в клетку.
Царица Информатика не закрыла Интернет, а только расставила на границах стражу от Вирусов.
Так и по сей день правит Информатика в своём государстве и делится своими знаниями с добрыми людьми
1)
var
a: array[1..20] of integer;
i, j, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.
2)
var
a: array[1..20] of integer;
i, j, k,n: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.
3)
var
a: array[1..10] of integer;
i, j, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.
