Составьте программу, которая заполняет массив 6х6 следующим образом:
А)
1 0 0 0 0 0
0 1 0 0 0 0
0 0 1 0 0 0
0 0 0 1 0 0
0 0 0 0 1 0
0 0 0 0 0 1

Б)
1 0 0 0 0 0
1 1 0 0 0 0
1 1 1 0 0 0
1 1 1 1 0 0
1 1 1 1 1 0
1 1 1 1 1 1

В)
1 0 0 0 0 1
0 1 0 0 1 0
0 0 1 1 0 0
0 0 1 1 0 0
0 1 0 0 1 0
1 0 0 0 0 1

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var Z:=ArrRandom(ReadInteger('n='),1,99);
  Writeln('Массив Z'); Z.Println;
  Writeln('Массив X');
  var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
  X.Println;
  Writeln('Массив Y');
  var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
  Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

1 вариант

Pascal

Var

n,k,i:integer;

X,A,f,C:Real;

begin

k:=1;

Writeln('Введите N');

Readln(n);

Writeln('Введите X');

Readln(x);

Writeln('Введите A');

Readln(a);

F:=(exp(ln(X/A)*1))/1;

for i:=2 to n do begin

  k:=k*i;

  C:=(exp(ln(X/A)*N))/K;

  F:=F+C;

end;

Writeln(F);

end.

2 вариант

var

 X, A, F : Real;

 i, N : Integer;

begin

 Write('n = '); ReadLn(N);

 Write('x = '); ReadLn(X);

 Write('a = '); ReadLn(A);

 F := 1;

 Sum := F;

 for i := 1 to N do

   begin

     F := F * (X / A) / i;

     Sum := Sum + F;

   end;

 WriteLn(Sum:0:5);

end.