Нарисовать блок схему нахождения произведения чисел 1*2**10

program n1; uses crt; var k,i: integer; begink: =1; for i: =1 to 10 do k: =k*i; writeln(k); end.

блок-схема вложена.

записи в блоках (по порядку сверху вниз):

- начало

- k: =1;

i: =1 to n

k: =k*1

k

ну и снизу разумеется конец программы в овале, забыла дорисовать.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.