Здравствуйте) помогите составить задачи по паскалю) задачи на такую тему: Составление,...

Var
j, n: integer;
x: array[0..100] of double;

begin
Write('Введите значение n: ');
Readln(n);
{ Необходимо задать значения x[0], x[1] }
x[0] := 1; x[1] := 1;
for j := 2 to n do
begin
    x[j] := sqr(cos(x[j - 1])) + sqrt(abs(ln(x[j - 2])));
    x[j - 2] := x[j - 1]; x[j - 1] := x[j];
    Write(x[j]:0:5, ' ')
end
end.

Тестовое решение:

Введите значение n: 10
0.29193 2.02679 1.03442 0.44511 1.71431 0.75463 1.06134 0.48185 1.63972

const
n = 100;

var
k, m: integer;
b: array[1..n] of real;
s: real;

begin
Write('Введите значение m: ');
Readln(m);
Randomize;
s := 0;
for k := 1 to m do
begin
    b[k] := 50 * Random - 25;
    s := s + cos(b[k]) + ln(abs(b[k]))
end;
s := s + 2.4e-2;
Writeln(s)
end.

Тестовое решение:

Введите значение m: 10
14.8684009707635

const
n = 10;

var
x: array[1..n] of integer;
s, i: integer;

begin
s := 0;
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    s := s + x[i]
end;
Writeln;
Writeln('Среднее=', s / n)
end.

Тестовое решение:

Элементы массива:    5 -43 50 38   9 32   4 -12   6 -2
Среднее=8.7

Здравствуйте) помогите составить задачи по паскалю) задачи ** такую тему: Составление,...