Составить программу для вычесления бескончечной суммы(с погрешностью) 1+x+x^2+x^3++x^n+ диапозон изменения ixi< 1; выражение для проверки: 1/(1-x);

Program task; const n = 5; max = 25; var a: array [1..n, 1..n] of integer; i, j, ir, jr: integer; begin randomize; for i : = 1 to n do for j : = 1 to n do a[i, j] : = random(max * 2) - max + 1; writeln('матрица: '); for i : = 1 to n do begin for j : = 1 to n do write(a[i, j], ' '); writeln; end; a[i, j] : = random(50) - 25; ir : = 1; jr : = 1; for i : = 1 to n do for j : = 1 to n do if a[i, j] < a[ir, jr] then begin ir : = i; jr : = j; end; writeln('столбец минимального элемента: ', jr); readln; end.

Program task; const n = 3; var a: array [1..n, 1..n] of integer; d, p, n first, nlast, i, j, k: integer; begin nfirst : = 1; nlast : = n; p : = (n div 2 + 1); for k : = 1 to p do  begin if k = p then begin d : = p + 1; if d > 3 then d : = 1; a[nfirst, nlast] : = d; break; end; for j : = nfirst to nlast do begin if j < = p then begin d : = d + 1; end else begin d : = d - 1; end; a[nfirst, j] : = d; a[nlast, j] : = d; end; d : = 0; for i : = nfirst to nlast do begin if i < = p then begin d : = d + 1; end else begin d : = d - 1; end; a[i, nfirst] : = d; a[i, nlast] : = d; end; d : = 0; nfirst : = n first + 1; nlast : = nlast - 1; end; for i : = 1 to n do begin for j : = 1 to n do write(a[i, j], ' '); writeln; end; readln; end.