<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
// индексацая с нуля
var R:=ArrGen(15,i->10*i-i*i);
R.Println
end.
<u>Пример</u>
0 9 16 21 24 25 24 21 16 9 0 -11 -24 -39 -56
<em>№2</em>
begin
var a:=ArrRandom(30,-50,50); a.Println;
var m:=a.IndexMin;
a:=a[:m+1]+Arr(0)+a[m+1:];
a.Println
end.
<u>Пример</u>
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 -47 4 -5 -40 -10 43
45 45 29 7 38 -46 3 -39 -44 -4 -17 -7 7 -30 23 48 6 42 24 -12 -4 48 47 -49 0 -47 4 -5 -40 -10 43
Если надо на PascalABC.Net, то в версии языка 3.2 можно так:
begin
for var i:=1 to 10 do
print(random(10,80));
end.
Вариант №2 (классический)
var i:integer;
begin
for i:=1 to 10 do
write((random(91)-10),' ');
end.
Вариант №3 (с массивом)
var i:integer;
a:array[1..10]of integer;
begin
for i:=1 to 10 do begin
a[i]:= random(91)-10;
write(a[i],' ');
end;
end.
<u>Чертежник PascalABC.NET 3.3
</u>
Текстовый файл с кодом для букв и другой фигуры(круг) прикреплены: