Составление программы по блок-схеме.

[serg1032]

program need;
var i,j:integer;
B: array [1..21] of integer;
begin
i:=1;
if j<=20 then
begin
B[i]:=B[i]-B[21-i];
B[21-i]:=B[i]+3*B[21-i];
j:=j+1;
end
else writeln(B);
end.

Ввод осуществляется вручную.

[Serge_Bliznykov]

нет, не верно.

я бы что-то такое изобразил:

program need;
var 
   j:integer;
  B: array [1..20] of integer;
begin
  j:=1;
  while j<=20 do
  begin
    B[j]:=B[j]-B[21-j];
    B[21-j]:=B[j]+3*B[21-j];
    j:=j+1;
  end;
.....

в блок-схеме нет блока <КОНЕЦ>, алгоритм не завершён, поэтому нет окончания программного кода END.

[serg1032]

Сообщение от Serge_Bliznykov

нет, не верно.

Я прошу помощи, чтобы понять, что нужно сделать, чтобы я вводил с руки числа и мне выдавало результат.

[serg1032]

Сообщение от Serge_Bliznykov

нет, не верно.

я бы что-то такое изобразил:

program need;
var 
   j:integer;
  B: array [1..20] of integer;
begin
  j:=1;
  while j<=20 do
  begin
    B[j]:=B[j]-B[21-j];
    B[21-j]:=B[j]+3*B[21-j];
    j:=j+1;
  end;
.....

в блок-схеме нет блока <КОНЕЦ>, алгоритм не завершён, поэтому нет окончания программного кода END.

Спасибо, но почему он не просит меня вводить числа в окно ввода?

[Serge_Bliznykov]

Сообщение от serg1032

Спасибо, но почему он не просит меня вводить числа в окно ввода?

потому что в алгоритме нет начала, нет блока ввода чисел в массив B, точно так же, как блок-схема обрывается, в ней нет вывода массива B и блока завершения...

почему это так - вопрос к тому, кто эту блок-схему рисовал..

[serg1032]

Сообщение от Serge_Bliznykov

потому что в алгоритме нет начала, нет блока ввода чисел в массив B, точно так же, как блок-схема обрывается, в ней нет вывода массива B и блока завершения...

почему это так - вопрос к тому, кто эту блок-схему рисовал..

Спасибо за столь скорый ответ