Дати в жертву можна, але якщо вам щось погрожує
<span>Паскаль АВС:
1. создать массив из 10 элементов
var
a1:array [1..10] of integer;
2. создать массив из 11 элементов
</span><span><span>var
a2:array [1..10] of integer;
</span>3. заполнить массив порядковыми номерами в прямом порядке
</span><span><span>var
a3:array [1..n] of integer;
i:integer;
begin
for i:=1 to n do a3[i]:=i;
</span>4. заполнить массив порядковыми номерами в обратном порядке
</span><span><span>var
a4:array [1..n] of integer;
i:integer;
begin
for i:=1 to n do a4[n-i+1]:=i;
</span>5. заполнить массив случайными числами в [0,10]
</span><span><span>var
a5:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a5[i]:=random(11);
</span>6. заполнить массив случайными числами в [0,9]
</span><span><span>var
a6:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a6[i]:=random(10);
</span>7. заполнить массив случайными числами в [-10,10]
</span><span><span>var
a7:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a7[i]:=random(21)-10;
</span>8. заполнить массив случайными числами в [-5,5]</span>
<span>var
a8:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a8[i]:=random(11)-5;
</span>
Что? Это приложение не что бы всякую ерунду писать!
Охотится)))Для этого,конечно,надо потрудится)))
1. Доставить удовольствие, людям с помощью своей профессии.