Я тебе даю формулы ты уже выбирай сам какую
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
Program qwerty;uses crt, graphabc;var x,x0,y0,k:integer; y:real; beginx0:=320;y0:=240;k:=50;for x:= -320 to 320 do beginif x<0 then y:=x*xelse if (x>=0) and (x<10) then y:=xelse if x>=10 then y:=1/xend;end.
Вы "счетчик" в real объявили, а он должен быть integer
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(30,-30,30); a.Println;
Sort(a); a.Println
end.
<u>Пример</u>
-19 19 19 -18 13 -19 -3 13 7 -11 7 0 -12 -21 8 9 -30 27 -18 18 -28 25 -19 -12 -26 -23 1 -15 -4 -9
-30 -28 -26 -23 -21 -19 -19 -19 -18 -18 -15 -12 -12 -11 -9 -4 -3 0 1 7 7 8 9 13 13 18 19 19 25 27