По договоренности
Здравствуйте. Суть задания проста нужно написать алгоритм и блок схему по коду. Жду предложений по цене
Код исполнен на делфи:
{$APPTYPE CONSOLE}
var
A: array of Integer;
N, M, Sum, i: Integer;
V, Vars: Cardinal;
S: String;
begin
repeat
Write('Введите N (кол-во чисел, от 2 до 32): ');
ReadLn(N)
until N in [2..32];
SetLength(A, N);
Write('Введите число M (искомое значение): ');
ReadLn(M);
Write('Введите ', N, ' чисел от 1 до 9 в одну строку без разделителей (или пустую строку для генерации случайных чисел): ');
ReadLn(S);
Randomize;
for i := 1 to N do
if (Length(S) >= i) and (S[i] in ['1'..'9']) then A[i-1] := Ord(S[i])-Ord('0')
else A[i-1] := Random(9)+1;
if N <> 1 then Write('+');
Write(A[i-1])
end
else Write('-', A[i-1]);
WriteLn(' = ', M)
end
else WriteLn(#13'Данная последовательность чисел не позволяет получить указанное значение с помощью операций сложения и вычитания.') ;
ReadLn
end.