const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
const
N = 5;
var
B: array[1..N] of integer;
Sum, Min, Min_i, Max, i: integer;
Begin
WriteLn('Введите массив: ');
For i := 1 to N do
Read(B[i]);
Sum := 0;
Min := B[1];
Max := B[1];
For i := 1 to N do
Begin
if (B[i] mod 2 <> 0) then
Sum := Sum + B[i];
if (B[i] > Max) then
Max := B[i];
if (B[i] <= Min) then
begin
Min := B[i];
Min_i := i;
end;
End;
For i := 1 to Min_i - 1 do
B[i] := (Min + Max) div 2;
For i := N downto 1 do
if ((B[i] mod 4 = 0) and (i < N)) then
begin
B[i+1] := 0;
break;
end;
WriteLn('Сумма нечётных элементов: ', Sum);
WriteLn('Получившийся массив: ', B);
End.
abc*1001=abc*1000+abc*1=abc000+abc=abcabc (где a,b,c - любые цифры)
Отсюда любое шестизначное число, состоящее из двух одинаковых трехзначных, при делении на 1001 даст трехзначное, из которого оно и состоит.