Нарисовать блок-схему следующей . есть массив м, состоящий из пяти чисел, связанных линейной зависимостью. первые два числа вводятся в качестве ид. спрогнозировать и вывести остальные три числа массива.

const

 n = 15;

var

 x: array[1..n] of integer;

 i, k, t, min: integer;

begin

 Randomize;

 Writeln('Исходные элементы массива');

 min := 1000;

 for i := 1 to n do

 begin

   x[i] := Random(101) - 50;

   Write(x[i]:4);

   if min > x[i] then begin

     min := x[i];

     k := i

   end

 end;

 t := x[k]; x[k] := x[1]; x[1] := t;

 Writeln;

 Writeln('Результирующие элементы массива');

 for i := 1 to n do Write(x[i]:4);

 Writeln

end.

Исходные элементы массива

-28 -22 -15   3  27  29  34 -29 -49 -37 -19  31  40 -36   4

Результирующие элементы массива

-49 -22 -15   3  27  29  34 -29 -28 -37 -19  31  40 -36   4

Объяснение:

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()