<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-50,50);
a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))
a.Println;
var a0:=a[0];
a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;
a.Println
end.
<u>Пример</u>
n= 8
-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.64
1 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64
Const n=3;{можно любое число}
var a:array [1..n] of Integer;x,q,i:Integer;b,c,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
c:=x;
Writeln(c:3:2,'-Naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
z:=q;
Writeln(z:3:2,'-Naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-seredne arifmitichne') ;
readln;
end.
Var y,x,l:real;
<span>begin </span>
<span>writeln('Введите значение l и x соотвественно'); </span>
<span>read(l,x); </span>
<span>if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль') </span>
<span>else begin </span>
<span>y:=sqr(l/x); </span>
<span>writeln(y); </span>
<span>end; </span>
<span>end.</span>