Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
Упрощение выражений - в прилагаемом файле
841
Подставляем вместо и - 0 к - 1 р - 2 а - 3
Записываем АКИРИ, как 31020 в четверичной и переводим в десятичную, получаем 840, т.к. первая позиция 00000(иииии) была единицей, прибавляем 1
Получаем 841
Ноутбук состоит из 2-3х основных частей: — корпуса, в который вмонтированы все необходимые для работы детали; — дисплея (экрана); — устройства ввода информации: клавиатура и тачпад (выполняет функции мышки).
Написал на C# но в принципе код очень простой поэтому сможешь переписать на любой язык)
Console.WriteLine("Введите А");
int a = Convert.ToInt16(Console.ReadLine());
if (a >0)
{ Console.WriteLine("---------------------------");
Console.WriteLine("Число "+a+" положительное"); }
if (a < 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Число " + a + " отрицательное"); }
if (a == 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Вы ввели 0"); } <span>
Console.ReadLine();</span>
