Написать программу паскаль. цикл. вычислить сумму s=1+(1+x/5)+(1+1/5)2+(1+x/5)3++(1+x/5)15.

Var i: integer; s, x: real; begin write('введите x> > '); readln(x); s: =1; for i: =1 to 15 do s: =s+(1+x/5)*i; writeln(s); end.

Uses crt; const n=10; var a: array [1..n] of integer;     x,min,pr: integer; begin       pr: =1;       for x: =1 to n do       begin           read(a[x]);           if x mod 2=0 then  pr: =pr*a[x];       end;       min: =a[1];       for x: =1 to n do           if a[x]< min then min: =a[x];       writeln('произведение четных элементов:   ',pr,'; минимальный элемент:   ',min); end.

Var   matrix : array[1..4, 1..4] of integer;   min, sum,  i, j  : integer; begin   min  : =  maxint;   sum : = 0;   for i: =1 to 4 do     for j: =1 to 4 do       read(matrix[i, j]);   for i: =1 to 4 do     for j: =1 to 4 do     begin       if matrix[i, j] < min then         min : = matrix[i, j];       sum : = sum + matrix[i, j];     end;   for i: =1 to 4 do     for j: =1 to 4 do       if matrix[i, j] < (sum / 16) then         matrix[i, j] : = min; end.